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CHAPTER  1;  INTRODUCTION 

The  purpose  of  this  thesis  is  to  present  the 
design  and  implementation  of  OOP,  a  form  of  object- 
oriented  Prolog. 

Chapter  2  reviews  common  object-oriented  language 
features,  defines  them,  and,  where  appropriate, 
indicates  their  advantages.  Object-oriented  programming 
has  evolved  into  two  basic  philosophies.  These 
philosophies  are  discussed  in  the  context  of  the 
definitions  presented  in  this  chapter. 

Chapter  3  compares  some  of  the  existing  object- 
oriented  Prolog  models.  The  principles  behind  the 
design  of  these  models  are  discussed  and  a  comparison 
of  the  models  to  standard  object-oriented  language 
principles  is  also  made. 

Chapter  4  presents  the  syntax  for  OOP  and  shows  a 
sample  OOP  program.  Then  the  data  structures  and  run- 
time support  predicates  are  explained.  Following  this, 
the  translation  of  the  OOP  source  to  a  target  C-Prolog 
program  is  discussed  using  an  example. 


CHAPTER  2:   CONCEPTS  OF  OBJECT  ORIENTED  PROGRAMMING 

There  are  several  definitions  of  object  oriented 
programming,  and  most  are  partially  founded  on  at 
least  one  of  two  primary  philosophies.  The  first 
philosophy  evolves  from  the  premise  that  the  abstract 
objects  of  a  program  have  a  one-to-one 
correspondence  to  concrete  objects  [Boo86,Ren82,Sha83, 
Sta86].  The  second  philosophy  emphasizes 
programming  language  features  that  improve  the  process 
of  software  development  [Car84,Cox84,Cox86,Cun86,Fuk86, 
Fuk87 ,  Gol83 ,Hew79 ,Ing78 ,Ing81 ,Kah86 ,Mac85 ,Rob81 ,Sny86 , 
Zan84].  These  language  characteristics  include 
encapsulation,   inheritance,   and  similar  attributes. 

2.1  Object  Oriented  Programming  Approach 

The  first  philosophy  emphasizes  the 
representation  of  the  world  situations  in  an 
analogous  form.  Since  there  is  little  or  no 
translation  involved  between  these  two  forms,  it  is 
supposed  to  be  easier  for  inexperienced  programmers 
to  develop  software.   The  emphasis  is  not  on  the 
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features  of  the  programming  language,  but  on  the 
use  of  the  programming  language.  It  is  the 
programmer's  responsibility  to  use  an  object  oriented 
approach. 

An  example  of  this  approach  can  be  found  in 
[Sta86].  Prolog  is  used  in  an  object  oriented 
fashion  without  changing  the  actual  language.  Objects 
are  represented  using  Prolog  facts  with  the  following 

form: 

object(<name>,<methods>) . 
In  this  form,  <name>  is  the  name  of  the  object  and 
<methods>    is  the    list    of    methods  that  are 
represented  by  Prolog  rules.    The  following  is  an 
example  from  [Sta86]: 


ob j  ect ( reg_polygon ( No_of _sides , Length_of _side ) , 
[ (perimeter (P) :-  P  is 
No_of_sides*Length_of_side) , 
description 'a  regular  polygon')  ]) 


From  this  Prolog  fact,  we  can  deduce 

the  object  is   "reg_polygon" ,   and   is   specified 
with  two  parameters 
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the  object  has  a  method  that  handles  the  message 
requesting  the  perimeter 

the  object  has  a  method   that    handles    the 
request  for  a  description  of  the  object. 

Prolog  queries  are  used  to  send  messages  to  objects: 

: -  send( <object> , <message> ) . 
where  send  is  a  rule  defined  to  process  messages: 

send(Object, Message)  :- 

object (Object, Methods) , 

get_method( Mess age, Methods,  Method) , 

call (Method) . 
get_method( Message, [First|Rest] , Method)  :- 

f act_or_rule (Message, First, Method ) . 
get_method( Message , [_ j Rest ] .Method)  : - 

get_method ( Message , Rest , Method ) . 
f act_or_rule ( Message , Message , true ) . 
fact_or_rule( Message, (Message  :-  Body) , Body) . 

Using  the  Prolog  query  form,  and  this  "send"  rule,  we 
can  send  a  message  to  the  "reg_polygon"  object 
requesting  the  perimeter  of  a  polygon,  where  the 
polygon  has  4  sides  of  length  5 : 

: -  send ( reg_polygon (4,5), perimeter ( P ) ) . 
This  instantiates  P  to  the  perimeter,  20. 
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2.2  Object  Oriented  Language  Structures 
2.2.1   Language  Features 

The  second  philosophy  enforces  object  oriented 
programming  technigues  through  the  use  of  language 
structures.  In  object  oriented  programming,  the 
object  has  a  direct  correspondence  to  the  concrete 
objects  of  this  world.  All  worldly  objects  have 
state(s);  the  type  of  the  object  will  determine  the 
state(s)  it  has.  Therefore,  the  programmed  objects 
should  represent  the  object's  state(s).  The 
programmed  objects  will  also  provide  encapsulation 
and  inheritance  (discussed  below),  similar  to  their 
concrete  counterparts;  an  object's  reaction  to  a 
particular  situation  is  defined  by  its  own  private 
traits. 

2.2.1.1  Object  and  Classes 

The  construction  of  an  object  involves 
defining   its  behavior.   This  behavior  is  outlined  by 
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procedures  called  methods  that  are  private  to  the 
object.  These  methods  are  used  by  the  object  to 
access  its  own  states.  In  order  to  initiate  a 
particular  behavior  in  an  object  or  obtain  information 
about  the  variables  of  an  object,  a  message 
must  be  sent  to  that  object  requesting  that  action  or 
information.  Messages  customarily  consist  of  the 
name  of  an  object,  the  name  of  one  of  its  methods,  and 
any  parameters  required  by  the  method.  One  or  more 
objects  which  have  the  same  variables  and  methods 
are  considered  to  be  members  of  the  same  class.  If  two 
or  more  objects  can  service  the  same  messages, 
they  have  the  same  protocol.  An  object  is  described 
by  one  particular  class  and  this  object  is  an  instance 
of  that  class.  All  objects  in  a  class  have  the  same 
behavior,  but  different  states.  The  process  of 
creating  a  new  instance  is  called  instantiation. 
Thus,  a  class  is  the  definition  of  the 
characteristics  belonging  to  a  group  of  objects,  and  an 
instance  or  object  is  one  member  of  that  group. 
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2.2.1.2  Variables 

The  state  of  a  given  object  is  represented  by 
its  use  of  variables;  an  object's  behavior  is 
partially  determined  by  its  state  when  it  is  invoked. 
These  variables  are  private  to  the  object;  the 
state  of  an  object  can  only  be  changed  by  its  own 
internal  behavior.  When  choosing  the  states  of  an 
object  to  be  stored  in  variables,  there  is  some 
consideration  to  whether  an  individual  state  is  a 
characteristic  of  single  objects  or  a 
characteristic  of  all  objects  in  the  class.  In  order 
to  make  the  distinction,  there  are  class  variables  and 
instance  variables.  Class  variables  store  information 
pertinent  to  all  objects  in  a  class.  For  example,  if 
there  exists  a  class  called  "dog",  the  fact  that 
dogs  have  four  legs  would  be  stored  in  a  class  variable 
This  variable  is  shared  by  all  objects  derived  from 
this  class.  Instance  variables,  however,  store 
information  that  is  characteristic  of  one  object  in  a 
class.  Referring  to  the  class  "dog",  if  two  objects 
named  "spike"  and  "snoopy"  were  to  represent  a  bulldog 
and  beagle  respectively,   that  information  would  be 
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represented  in  instance  variables,  possibly  called 
"breed".  Thus,  Class  variables  are  those  saved  states 
that  are  shared  by  all  instances  of  a  particular 
class,  and  instance  variables  are  those  private  to  a 
particular  object  or  instance.  Both  types  of 
variables  are  defined  in  the  class  definition.  When  an 
object  is  instantiated,  new  instance  variables  are 
also  instantiated  for  the  exclusive  use  of  that 
object. 

2.2.1.3  Inheritance 

Inheritance  is  a  powerful  aspect  of  object 
oriented  programming.  It  allows  "implicit  sharing 
between  objects  in  a  class"  [Rob81].  This  includes  the 
sharing  of  methods  and  class  variables.  If  a  new 
class  is  created  by  modifying  another  class,  the 
original  class  is  the  superclass  and  the  new  class  is 
the  subclass.  According  to  [Rob81],  these  are  the 
modifications  that  can  be  made  when  producing  the 
subclass:  "adding  instance  variables;  providing  new 
methods  for  some  of  the  messages  understood  by  the 
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superclass;  providing  methods  for  new  messages 
(messages  not  understood  by  the  superclass);  adding 
class  variables."  In  some  systems  (e.g.  LOOPS),  there 
are  two  types  of  inheritance:  hierarchical  and 
multiple.  With  hierarchical  inheritance,  the  new  class 
only  inherits  characteristics  from  one  superclass. 
Using  multiple  inheritance,  it  is  possible  to  create  a 
new  class  which  benefits  from  the  characteristics  of 
more  than  one  superclass.  Any  conflicts  that 
result  from  using  multiple  inheritance  are  resolved 
according  to  each  language ' s  conventions .  For  an 
example  of  hierarchical  inheritance,  assume  that 
there  is  a  class  "domestic_animal" .  Using  inheritance, 
we  can  create  a  new  class  "dog"  that  has  the 
characteristics  of  "domestic_animal" ,  as  well  as  some 
new  characteristics.  Class  "dog"  inherits  all  class 
variables,  instance  variables,  and  methods  of 
"domestic_animal" .  This  set  of  inherited 
characteristics  is  augmented  by  its  own  specialized 
characteristics.  Multiple  inheritance  is  handled  in  a 
similar  fashion. 
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2.2.1.4   Encapsulation 

When  using  an  object  oriented  programming 
language,  encapsulation  is  also  enforced. 
Encapsulation  forces  methods  and  variables  to  be 
private  to  particular  objects  or  classes.  Class 
variables  are  private  to  the  class  they  are  declared 
in,  instance  variables  to  the  instance  they  are  defined 
in,  and  methods  to  the  class  they  are  defined  in. 
One  of  the  objectives  of  encapsulation  is  to  localize 
changes  made  in  software  maintenance.  A  change 
in  how  a  method  performs  an  operation  should  not 
affect  the  rest  of  the  program. 
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Chapter  2  Concepts  of  Object  Oriented  Programming 
Table  2.1  Object  Oriented  Definitions 

Class 

one   or   more   objects  which   have   similar 

characteristics;  a   group  of  objects  with  the 

same  behavior;  a  group  of  objects  with  the  same 

variables  and  procedures  to  manipulate  those 
variables 

Class  Variable 

a  variable  shared  by  all  objects  in  one  class 

Inheritance 

the  transference  or  sharing  of  characteristics 
(methods  and  class  variables)  to  a  newly  created 
class 

Instance 

an  object;  one  member  of  a  class 

Instance  Variable 

a  variable  that  is  private  to  an  object;  an 
unshared  variable 

Instantiate 

to  create  an  object  with  an  exact  state  from  a 
given  class  of  objects 
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Table  2.1  (continued)  Object  Oriented  Definitions 


Message 


a  means  of  initiating  a  particular  behavior 
in  an  object  or  obtaining  information  about  the 
variables  of  an  object;  a  means  of  communication 
between  objects 


Method 


an  internal  procedure  of  an  object;  it  is 
defined  by  the  class  to  which  the  object  is  a 
member 


Object 


something   with   saved   states   and   its   own 
procedures  to  manipulate  those  states 


Protocol 


the  set  of  procedures  or  methods  that  an  object 
can  execute;  the  set  of  messages  an  object  can 
service 


Subclass 


a  class  which  inherited  characteristics  from  (a) 
previously  defined  class(es);  these 
characteristics  can  be  modified. 


Superclass 

a  class  from  which  subclasses  were  formed 
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2.2.2  Advantages   of   Object   Oriented   Programming 
Language  Structure 

The  first  place  advantages  appear  is  in  the 
program  development  process.  Using  classes  and 
instantiation  to  create  objects  has  the  benefit  of 
minimizing  code  duplication  because  re-entrant  code 
can  be  used  for  the  methods.  This  is  not  only  true 
for  objects  within  the  same  class,  but  also  for 
inheritance  between  superclasses  and  subclasses . 
Class  definitions  also  save  the  programmer  from  having 
to  re-declare  local  variables  for  objects  because  the 
instance  variables  are  instantiated  with  each  new 
object.  The  scope  of  all  variables  is  well-defined. 

Object  oriented  language  structures  also  reduce 
software  maintenance.  As  a  result  of 
encapsulation,  there  are  no  side  effects  and  all 
changes  are  localized  to  individual  methods. 
Methods  are  private  to  the  class  they  are  defined 
in,  so  other  objects  do  not  depend  on  how  the  task  is 
done. 
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CHAPTER  3:   EXISTING  WORK  IN  OBJECT  ORIENTED  PROLOG 

This  chapter  discusses  past  work  in  object 
oriented  Prolog.  Five  implementations  of  object 
oriented  Prolog  are  surveyed  in  this  chapter: 

Shapiro ;Takeuchi.    "Object  Oriented   Programming   in 
Concurrent  Prolog" 

uses  concurrent  Prolog  in  an  object  oriented 
manner . 

Kahn;  Tribble;  Dean;  Miller   "Objects   in   Concurrent 
Logic  Programming  Languages" 

provide  syntactic  extensions  to  the  first  model 
in  order  to  make  object  oriented  programming  in 
concurrent  Prolog  simpler. 

Nakashima;  Suzuki  "Data  Abstraction  in  Prolog/KR" 

Data  abstraction  and  inheritance  in  Prolog/KR 
are  discussed.  Analysis  of  this  paper  gives 
some  insight  to  the  life  span  of  objects  and  the 
storage  of  states. 
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Zaniolo  "Object-Oriented  Programming  in  Prolog" 

Prolog  is  supplemented   with   object   oriented 
constructs 

Fukunaga;  Hirose  "An  Experience  with  a  Prolog-based 
Object-Oriented  Language" 

Prolog  is  supplemented   with   object   oriented 
constructs 

The  last  two  models  supplement  Prolog  with  object 
oriented  constructs  and  had  a  significant  influence  on 
the  design  of  the  model  implemented  in  this  thesis.  The 
first  of  these  two  models  is  by  Zaniolo;  the  second  is 
by  Fukunaga  and  Hirose. 

3 . 1   Concurrent  Prolog  Model 

Shapiro  and  Takeuchi  use  Concurrent  Prolog 
in  an  object-oriented  style;  they  do  not  present 
any  special  object-oriented  language  structures.  The 
paper  is  based  on  Concurrent  Prolog  available  at 
ICOT,  which  uses  active  objects  analogous  to  Actors. 
Actors  is  similar  to  the  most  frequent  definition  of 
object-oriented  programming;  the  main  difference  is  in 

15 
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the  terminology.  In  the  Actors  model,  an  object  is 
an  actor  and  "the  behavior  of  each  actor  is  defined 
by  the  relationships  among  the  events  which  are 
caused  by  the  actor"  [Hew79].  The  object-oriented 
style  used  in  Shapiro  and  Takeuchi ' s  paper  is  as 
follows: 

(i)   Each  predicate  is  an  object  and  each  call  to  a 
predicate  is  an  instance  of  that  object. 

(ii)   When  an  object  is  called,   the  first  parameter 
indicates  which  method  should  be  used. 

(iii)  Inheritance  is  imitated  by  passing  messages  up 
the  language  structure. 

Shapiro  and  Takeuchi  rely  heavily  upon  the  use  of 
streams.  A  stream  is  a  list  of  messages  used  to 
maintain  the  history  of  states  and  messages  sent. 
Stream  variables  (Prolog  lists)  are  used  in  a 
recursive  manner;  each  time  a  method  (predicate)  is 
invoked,  the  stream  variable  is  instantiated  to  a 
pair  consisting  of  the  message  for  the  predicate 
invoked  and  a  new  stream  variable  to  be  used  in  the 

16 
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next  predicate  invocation.  The  life  span  of  an 
object  is  restricted  to  the  life  of  a  predicate  in 
successive  recursive  calls;  once  backtracking 
occurs,  an  object/predicate  is  terminated.  This  is  the 
reason  for  the  use  of  stream  variables. 

3.2  Vulcan — A  Preprocessor  for  Concurrent  Prolog 

A  preprocessor  for  Shapiro's  object-oriented 
use  of  Concurrent  Prolog  is  presented  by  Kahn, 
Tribble,  Dean  and  Miller  in  [Kah86].  The  purpose  of 
the  new  language,  called  Vulcan,  is  to  provide  a 
better  notation  than  that  provided  by  Shapiro.  Like 
Shapiro's  paper,  this  one  relies  heavily  upon  the  use 
of  streams  for  maintaining  a  history  of  states  and 
messages  sent  to  objects.  Vulcan  processes 
clauses  for  methods  and  classes.  A  class  clause  is 
used  for  the  declaration  of  the  names,  and  possibly 
properties,  of  the  state  variables  of  that  class.  The 
Vulcan  clause 

classtsome  class  name, [List, Of , State, Vars] ) . 
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is  a  declaration  that  all  methods  of  some_class_name 
"have  a  message  stream,  and  all  the  named  instance 
variables."  It  also  causes  the  Concurrent  Prolog  clause 


make(some_class_name, [ List, Of , State, Vars] , 

Some_Class_Name)  :- 

/*  This  makes  a  process  consuming  */ 
/*  the  stream  Some_Class_Name  */ 
some  class  name(Some  Class_Name?, List, Of , State, Vars) . 


to  be  generated.  To  define  a  method  for 
some_class_name  using  Vulcan,  the  user  can  use  the 
clause 


method! some_class_name , some_method_name ( State , Vars ) ) 
method_body. 


Vulcan  provides  the  programmer  with  a  slightly  higher- 
level  notation  than  unmodified  concurrent  Prolog. 

3.3  Data  Abstraction  in  Proloq/KR 

Nakashima  and  Suzuki,  [Nak83],  present  the  use 
of  data  abstraction  and  inheritance  in  Prolog/KR. 
Normal  Process  Objects  (NPO)  and  Coroutine  Process 
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Objects  (CPO)  are  added  to  standard  Prolog  to 
produce  an  expansion  of  Prolog  called  Prolog/KR.  Their 
function  is  to  introduce  histories  into  computation. 
NPO's  are  much  like  normal  predicate  calls.  CPO's 
allow  transfer  of  control  and  information.  They 
continue  to  exist  until  they  fall  off  the  end  of  their 
code.  Since  they  can  be  suspended,  they  can  store 
state  without  remaining  active;  they  simply  pass 
control  to  another  object  and  wait  in  an  inactive 
state  until  control  is  returned  to  them  or  the 
program  terminates.  Using  this  feature,  it  is  possible 
to  mimic  global  storage  of  state  and  instance 
variables:  just  surround  the  body  of  the  object's 
code  with  a  loop  which  returns  the  object  to  the 
beginning  of  its  code  and  transfers  control  to 
another  object.  Information  is  transferred  through 
unification  of  variables. 

3.4  Zaniolo's  Model 

Another  object-oriented  syntax  structure  for 
Prolog  is  presented  by  Zaniolo  in  [Zan84].  An 
object  declaration  has  the  form: 
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object  with  method- list 

Message  passing  is  also  implemented  using  the  infix 
operator  ":".   The  syntax  for  a  message  clause  is 

...  ,  object  :  method,  . . . 

For  a  message  call  to  succeed,  the  unification  of  the 
object  and  method  must  succeed;  the  proof  of  the 
method  must  also  succeed.  However,  there  is  not  any 
means  to  store  the  state  of  instance  or  global 
variables.  The  storage  of  global  and  local  object 
states  is  a  key  feature  of  object-oriented  pro- 
gramming. All  states  are  static  and  are  passed 
into  an  object  as  the  initial  states.  Inheritance  is 
also  supported  in  a  clear  manner.   The  clause 

sub_object  isa  object 

declares   that  all  the  methods  of    object    are 

inherited  by  sub_object.    Since  the  isa  operator  is 

transitive,   hierarchies  can  be  built  and  multiple 

inheritance  is   also   possible.  If  an  isa  clause  is 
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followed  by  a  non-empty  body,  the  body  is  used  to 
specify  the  conditions  under  which  the  inheritance 
relation  holds. 

3 . 5   SPOOL 

SPOOL,  an  object  oriented  programming  language 
based  on  Prolog,  has  been  implemented  by  Fukunaga 
and  Hirose  [Fuk86,Fuk87] .  It  is  now  a  program  offering 
of  IBM  Japan  under  the  name  of  VM/PROBJ.  It  supports 
object-oriented  programming  by  providing  the 
appropriate  language  constructs.  Class  definition 
has  the  form: 

class  <class  name>  has  <properties> 
The  properties  include  the  method  definitions  and  any 
references  to  super-classes.   Definitions  of  super- 
classes are  put  at  the  beginning  of  the  properties 
section: 

super-class  some_class_name; 

The  rest  of  the  properties  section  has  the  syntax 
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methods  <predicates>  end. 

Each  predicate  is  a  method  and  is  separated  by  a 
semicolon.  A  method  is  defined  as: 

<head>  :-  <body> 

where  the  body  is  optional.  Message  passing  is  allowed 
with  the  following  syntax: 

<receiver>   <<   <message> 

Either  the  message  or  the  receiver  may  have  an  unbound 
variable,  thus  allowing  anonymous  message  passing. 
A  message  can  be  the  head  of  a  Prolog  clause.  SPOOL 
tries  to  unify  a  message  with  a  head  of  a  method. 
If  a  matching  head  is  found,  the  body  is  evaluated 
in  the  usual  succeed/fail  manner.  As  a  result  of 
this  type  of  evaluation,  it  is  possible  to  get  a  "fail" 
result  instead  of  an  error  when  a  non-existent 
method  is  invoked.  Prolog  allows  incremental  design 
of  methods  and  formalization  of  domain  knowledge  into 
declarative  data  types. 
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This  chapter  is  a  description  of  the 
implementation  of  Object  Oriented  Prolog  (OOP).  OOP  is 
a  variation  on  SPOOL  [  ] ,  using  much  of  the  SPOOL 
syntax.  The  major  difference  between  OOP  and  SPOOL  is 
the  implementation.  OOP  is  implemented  in  C-Prolog 
using  Definite  Clause  Grammars  to  translate  the  source 
OOP  program  into  C-Prolog. 

Section  4.1  is  a  detailed  discussion  of  the  OOP 
language.  It  includes  a  view  of  the  syntax  and  the 
general  structure  of  an  OOP  program,  as  well  as 
information  about  the  semantics  of  the  language.  Then 
an  example  OOP  program  is  given. 

Section  4.2  presents  the  Prolog  data  structures 
used  to  represent  the  objects  of  the  OOP  program  and 
the  run-time  predicates  that  manipulate  these  data 
structures. 

Section  4 . 3  shows  how  OOP  source  code  is 
translated  to  C-Prolog.  This  includes  discussion  of 
the  scanner,  definite  clause  grammars,  and  the  parser. 
The  parser  is  a  prototype  that  fully  demonstrates  the 
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OOP  features  used  in  the  circuit  example;  the  parser 
does  not  implement  all  of  the  features  and  should  not 
be  considered  fully  functional. 

Section  4.4  describes  the  overall  operation  of  the 
OOP  interpreter:  how  to  invoke  the  interpreter  and 
what  happens  once  it  is  invoked. 

Section  4.5  concludes  the  chapter  with  the  status 
of  the  implementation,  some  comments  on  the  size  of  the 
translation,  and  some  of  the  problems  encountered 
during  implementation. 

4.1  Syntax  and  Structure  of  OOP  Programs 

The  syntax  of  OOP  programs  is  given  in  Figures 
4.1a,  4.1b,  4.1c,  4. Id;  they  are  integrated  into 
this  section  and  appear  where  they  are  discussed.  OOP 
programs  consist  of  a  list  of  statements.  Each 
statement  is  one  of  the  following:  class  definition, 
instance  creation,   top  level  message  transmission. 
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<class  definition) 

<instance  creation) 

<top  level  message  transmission) 

Figure  4.1a.   Three  Types  of  OOP  Statement. 


4.1.1  Class  Definition 

The  declaration  of  classes  (Figure  4.1b)  includes 
the  name  of  its  superclass,  class  and  instance 
variable  names,  and  the  class  methods  and  their 
bodies.  Currently,  only  a  single  superclass  is 
allowed.  With  minor  modification  to  the  translator, 
multiple  inheritance  may  be  supported.  Class  names 
must  be  unique.  "class_var"  and  "instance_var" 
declarations  are  optional.  Class  and  instance 
variables  can  be  accessed  only  by  using  methods  defined 
for  that  class.  The  methods  section  may  not  be  empty — 
if  it  were,  there  would  be  no  means  of  interacting  with 
objects  in  that  class. 
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class  <classname>  has 

superclass  <superclass>; 

[class_var  <class_var_list>; ] 

[ instance_var  <instance_var_list>; ] 

methods 

[<methods>]+ 

end  <classname>. 

Figure  4.1b.   Class  Definition  Syntax. 

[  ]   denotes  optional  pattern 
[  ]+  denotes  repeated  pattern 


Methods  are  written  in  Prolog  form  with  the 
addition  of  OOP  operators  for  accessing  class  and 
instance  variables  and  passing  messages.  These 
operations  are  listed  in  Figures  4.1c  and  4.  Id, 
respectively. 

There  are  two  types  of  operations  on  instance  and 
class  variables:  accessing  the  value  of  a  variable  and 
assignment  of  a  value  to  a  variable  (Figure  4.1c). 
Accessing  the  value  of  an  instance  or  class  variable  is 
indicated  syntactically  by  using  a  prefix  operator;  a 
":"   indicates   that   the   following   variable   is   an 
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instance  variable  and  a  "::"  indicates  a  class 
variable.  Assignment  to  an  instance  or  class  variable 
is  performed  using  either  of  the  respective  infix 
operators:  "=:",  "=::".  The  latter  set  of  operators 
only  indicate  what  type  of  variable  is  in  the  left  hand 
side  of  the  given  expression. 


:X  value  of  instance  variable  X 

::X  value  of  class  variable  X 

X  =:  Y  assign  the  value  of  variable  Y  to 
instance  variable  X;  Y  is  neither  a  class 
or  instance  variable 

X  =::  Y  assign  the  value  of  variable  Y  to  class 
variable  X;  Y  is  neither  a  class  or 
instance  variable 

X  =:  :Y  assign  the  value  of  instance  variable  Y 
to  instance  variable  X 

X  =:  ::Y  assign  the  value  of  class  variable  Y  to 
instance  variable  X 

X  =::  :Y  assign  the  value  of  instance  variable  Y 
to  class  variable  X 

X  =::  ::Y  assign  the  value  of  class  variable  Y  to 
class  variable  X 


Figure  4.1c.   Syntax  for  Access  of 
Instance  and  Class  Variables. 
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Methods  are  distinguished  by  functor  name  and 
arity,  as  inl/1.  If,  in  trying  to  satisfy  a  method 
goal,  more  than  one  method  exists  for  a  given 
functor  name  and  arity,  OOP  will  continue  trying 
to  satisfy  the  given  goal  until  either  it  succeeds 
or  exhausts  the  list  of  methods  for  the  object 
receiving  the  message.  This  is  consistent  with 
usual  Prolog  execution. 

Inheritance  of  methods  is  handled  in  a  manner 
similar  to  normal  Prolog  execution.  If  a  method  is 
declared  in  a  class,  a  method  with  the  same  name  and 
arity  may  still  be  inherited  from  one  of  its  ancestors. 
The  order  of  execution  is  determined  by  choosing  the 
most  local  definition.  Specifically,  OOP  will  first 
attempt  to  satisfy  the  goal  using  the  method  as  defined 
in  the  object's  class.  If  the  goal  is  not  satisfied, 
then  method  definitions  from  the  object's  superclasses 
are  attempted. 

4.1.2   Operations  on  Classes  and  Objects 

The  other  two  types  of  statement  are  instance 
creation    and   message  passing.    These  features  are 
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shown  in  Figure  4. Id.  Object  names  must  be  unique. 
There  are  four  different  <send_op>s  in  OOP.  "<<" 
provides  an  operator  that  acts  like  message  sending  in 
most  object  oriented  programming  languages:  if 
failure  occurs,  an  error  message  is  returned.  The 
use  of  the  question  mark  is  a  natural  extension  of 
the  Prolog  "fail"  characteristic.  When  failure 
occurs,  no  error  is  reported--the  attempt  simply 
fails  and  backtracking  occurs  if  possible.  Usage  of 
these  operators  is  also  defined  in  Figure  4. Id. 
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INSTANCE  CREATION 


(1)   instance  <instance_name>  isa  <class_name>  . 
MESSAGE  PASSING 
(2)   <instance_name>  <send_op>  <method_name_and_args> 
MESSAGE  SENDING  OPERATORS 


<<   results  in  an  error  if  receiver  does  not  exist  or 
does  not  understand  message 

?<   fails  w/o  any  warning  if  receiver  does  not  exist 

<?   fails  w/o  any  warning  if  invalid  message 

?<?  fails  w/o  any  warning,   regardless  of  whether 
receiver  exists  or  message  is  valid 

Figure  4. Id.   Statement  Syntax. 
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4.1.3   The  Root  Class 

The  predefined  root  class  called  root  must  be  the 
explicit  superclass  of  some  declared  class.  It 
defines  standard  variables  and  methods  (Figure  4.2) 
that  may  be  inherited  by  all  other  classes.  These 
variables  are  accessed  by  using  the  methods  of  root, 
both  of  which  are  inherited  by  successive  subclasses. 
These  methods  are  used  primarily  for  communication 
between  objects  and  allowing  objects  to  operate  on 
themselves. 
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INSTANCE  VARIABLES 


Class         /*  Contains  the  name  of  the  class  */ 
/*  the  object  belongs  to.  */ 

Id  /*  Contains  the  name  of  the  instance  */ 


METHODS 


/*  Instance  "Id"  is  an  object  of  type  "Class"  */ 
who  am  I (Class, Id). 


/*  Asks  "some_object"  what  its  "Class"  and  */ 

/*  "Id"  (instance  name)  is  */ 

some_object  <<  who_are_you (Class, Id ) . 


/*  sends  the  message  "do_something"  to  "inst_l",  */ 

/*  "inst_2",  and  "inst_3"  */ 

broadcast! [inst_l,inst_2,inst_3] ,do_something(X,Y) ) . 

/*  erases  "some_object"  and  the  associated  clauses  */ 
some_object  <<  erase_self. 


Figure  4.2.   Root  Class  Variables  and  Methods . 
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4.1.4  OOP  Example:  Digital  Logic  Circuit  Simulation 

The  sample  program  shown  in  Figure  4 .  3b  is  used 
to  illustrate  OOP.  The  program  realizes  a  simple 
logic  circuit  represented  in  Figure  4.3a.  The  program 
uses  classes   circuit,  and_c,  or_c,   and  out_c. 

The  class  circuit  defines  characteristics  common 
to  all  of  the  gates  in  the  circuit.  Its  method 
inl/1  stores  the  first  input  to  the  gate  in  an 
instance  variable  Temp.  Method  connect/2  stores 
information  about  which  input  and  gate  is  connected 
to  the  output  of   the  current  gate. 

The  class  and_c  defines  a  generic  two-input 
and-gate.  Since  it  has  super_class  circuit,  it 
inherits  all  of  the  variables  and  methods  from 
circuit  and  anything  circuit  inherited  from  root. 
The  method  in2/l  determines  what  the  output  of  the 
circuit  is  based  upon  its  input  value  and  the  value 
previously  stored  in  the  instance  variable  Temp  (by 
inl/1).  The  computed  value  is  sent  to  the 
connected  input  of  the  next  gate  in  the  circuit, 
as  determined  by  referencing  the  instance  variables 
To  inst  and  To  meth. 
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Figure  4.3a  Circuit  Example  Diagram 
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(  1) 
(  2) 
(  3) 
(  4) 
(  5) 
(  6) 

(  7) 


class  circuit  has 
superclass  root; 

instance_var  Temp,  To_meth,  To_inst; 
methods 

inl(X)  :-  Temp  :=  X. 

connect (Inst,  Meth)  :-  To_inst  :=  Inst, 

To_meth  :=  Meth 
end  circuit. 


(  8) 
(  9) 
(10) 
(11) 
(12) 
(13) 


class  and_c  has 

super_class  circuit; 
methods 

in2(X)  :-  Out  =  (X  A  :Temp), 

(:To_inst  <<  : To_meth ( Out )  ), 
end  and  c. 


(14)  class  or_c  has 

(15)  super_class  circuit; 

(16)  methods 

(17)  in2(X)  :-  Out  =  (X  \/  : 

(18)  ( :To_inst  << 

(19)  end  or_c. 


Temp ) , 

:To  meth (Out) 


(20)  class  out_c  has 

(21)  super_class  circuit; 

(22)  methods 

(23)  in2(X)  :-  write! :_Id, 

(24)  end  out. 

(25)  instance  andl  isa  and_c  . 

(26)  instance  and2  isa  and_c. 

(27)  instance  orl  isa  or_c. 

(28)  instance  outl  isa  out_c. 

(29)  andl  <<  connect (orl,  inl). 

(30)  and2  <<  connect (orl,  in2). 

(31)  orl  <<  connect ( outl, in2 ) . 


x, 


(32) 
(33) 
(34) 
(35) 


andl  << 

inl ( 1 ) . 

andl  << 

in2(0). 

and2  << 

inl ( 1 ) . 

and2  << 

in2(l). 

Figure  • 

1.3b.   C 

Circuit  Example  in  OOP. 
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The  class  or_c  is  similar  to  and_c.  The 
difference  is  the  use  of  a  logical  OR  instead  of  a 
logical  AND. 

Class  out_c  prints  the  final  output  of  the  whole 
circuit.  Note  the  use  of  inheritance  from  the  root 
class.  In  the  write  statement,  the  instance  variable 
_Id  is  referenced.  It  is  inherited  from  root 
through  circuit. 

The  main  section  of  the  program  contains  the 
instantiation  of  objects  and  sending  of  messages  to 
those  objects.  Lines  (25)  through  (28)  create  the 
objects  audi,  and2,  orl,  and  outl,  each  with 
characteristics  of  the  appropriate  classes.  Lines 
(29)  through  (31)  are  messages  to  each  of  the  logical 
gates  to  connect  to  the  appropriate  inputs  of  other 
gates.  Line  (29)  is  a  message  to  object  andl  to 
connect  its  output  to  the  inl  line  of  the  orl  gate. 
Lines  (32)  through  (35)  supply  the  logical  inputs 
to  the  gates. 
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4 . 2  Underlying  Data  Structures  and  Run-Time  Predicates 

The  target  C-Prolog  version  of  an  OOP  program 
consists  of  specific  data  structures  and  predicates 
that  reference  and  manipulate  these  structures.  Figure 
4.4  summarizes  the  underlying  data  structures  discussed 
in  the  next  two  sections.  The  target  for  the  circuit 
example  of  section  4.1.4  can  be  found  in  Appendix  G. 

4.2.1  Underlying  Data  Structures  for  Class  Definition 

When  a  class  in  OOP  is  defined,  three  types  of 
information  must  be  stored:  the  superclass 
relationships  of  the  class;  knowledge  of  the  instance 
and  class  variables  defined  for  that  class;  the  methods 
objects  in  that  class  may  respond  to.  For  each 
superclass  relationship,  the  following  fact  is  asserted 
into  the  Prolog  database: 

classtree ( superclass , subclass ) . 
where  subclass  is  the  name  of  the  class  being  defined 
and  superclass  is  the  name  of  a  previously  defined 
class.   This  fact  is  used  to  maintain  inheritance  for 
the  classes. 
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UNDERLYING  DATA  STRUCTURES  FOR  CLASS  DEFINITION 
classtree ( superclass , class ) . 

defines  class-superclass  hierarchy 
c_var_val ( class , var_name , val ) . 

maintains  name,  owner,  and  value  of  class  variable 
i_var_decl(class,var_name) . 

maintains  name  and  class  of  instance  variable 

meth_defn( class ,meth_name , 

(head(_Inst,orig_parms)  :-  body)). 

maintains  the  class  name,  method  name,  and  the 
clause  for  the  method  defined 

UNDERLYING  DATA  STRUCTURES  FOR  INSTANCE  CREATION 

inst ( instance_name , class_name ) 

keep  track  of  instance  name  and  the  class  it 
belongs  to 

i_var_val( inst,var_name,_UnInstant) . 

maintain  the  name  of  the  instance,  instance 
variable,  and  its  value 

c_var_path ( inst , var_name , owner ) . 

maintain  the  name  of  the  instance,  class  variable, 
and  the  name  of  the  class  it  belongs  to 

meth_path ( inst , meth_name , def _class ) . 

maintain  the  name  of  the  instance,  the  name  of  the 
method,  and  where  clause  for  the  method  can  be 
found 

Figure  4.4.   Underlying  Data  Structures. 
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Since  class  and  instance  variables  store  different 
types  of  information,  they  require  different  types  of 
data  structures.  A  class  variable  stores  a  value 
shared  by  all  objects  in  the  class.  Therefore,  when  a 
class  variable  is  declared  for  a  class,  a  fact  is 
asserted  that  stores  the  value  for  that  variable: 

c_var_val ( class , var_name , value ) . 
class  is  the  name  of  the  class  for  which  the  class 
variable  is  defined,  var_name  is  an  atom  representing 
the  name  of  the  variable,  and  value  is  the  initial 
value  of  the  variable.  If  no  initial  value  is  provided 
in  the  declaration,  an  uninstantiated  variable  is  used. 

An  instance  variable,  however,  stores  a  value  for 
an  individual  object  in  the  class.  For  this  reason, 
only  the  declaration  is  asserted: 

i_var_dec 1 ( c las s , var_name ) . 
This  fact  indicates  that  every  object  in  the  class 
named  class  has  an  instance  variable;  the  name  of  this 
variable  is  represented  by  the  atom  var_name. 

The  third  type  of  information  is  method 
definition.  For  each  method  predicate  in  the  class 
definition, 
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meth_defn( class ,meth_name , 

(head(_Inst,orig_parms) :-body) ) . 

is  asserted  into  the  Prolog  database.    This  fact 

contains  several  pieces  of  information:   class  is  the 

name  of  the  class  in  which  the  method  is  defined; 

meth_name  is  the  functor  of  the  method;  head  is  the 

same  as  meth_name;  _Inst  is  an  uninstantiated  variable 

that  is  necessary  for  processing  messages;  orig_parms 

is  the  original  parameter  list  given  in  the  OOP 

program;  body  is  the  executable  C-Prolog  version  of  the 

OOP  method's  body. 

4.2.2  Underlying  Data  Structures  for  Instance  Creation 

When  an  instance  is  created,  the  fact  that  the 
object  exists  must  be  established: 

inst ( instance_name , class_name ) . 
instance_name   is   the   name   of   the   object   being 
instantiated,  class_name  is  the  name  of  the  class  to 
which  the  object  belongs. 

At  the  moment  an  object  is  instantiated, 
Prolog  facts  indicating  the  paths  to  its  class 
variables  and  methods,  and  facts  storing  the  values  of 
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its  instance  variables,  are  asserted.  The  paths  are 
asserted  in  order  to  increase  execution  speed.  For 
each  class  variable  accessible  by  an  object,  both  local 
and  inherited,  the  fact 

c_var_path(inst,var_name, class) . 
is  asserted.  inst  is  the  name  of  the  object  that  can 
access  the  variable,  var_name  is  an  atom  representing 
the  name  of  the  variable,  and  class  is  the  name  of  the 
class  that  defined  the  variable.  The  name  of  the  class 
is  used  to  find  the  fact  storing  the  value  directly.  A 
similar  fact  is  used  to  store  the  path  for  each  of  an 
object's  methods: 

meth_j>ath(inst,meth_name,def_class) . 
inst  is  the  name  of  the  object,  meth_name  the  name  of 
the  method,  def_class  the  name  of  the  class  that 
originally  defined  the  method.  The  last  parameter 
allows  the  run-time  predicates  to  obtain  the  method 
directly,  instead  of  searching  inheritance  lattices 
first. 

For  each  of  an  object's  instance  variables,  the 
fact 

i  var  val ( inst , var_name , _UnInstant ) . 
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stores  the  value.  inst  and  var_name  have  the  obvious 
values.  _UnInstant  is  an  uninstantiated  variable, 
indicating  that  the  variable  does  not  have  a  value  yet. 

4.2.3   Run-Time  Predicates 

The  run-time  predicates  for  OOP  are  divided  into 
two  categories:  variable  access  and  assignment 
predicates;  message  sending  predicates.  Other  semantic 
actions  are  implemented  in  the  parser.  All  run-time 
predicates  are  in  Appendix  F.  Parts  of  the  predicates 
necessary  for  discussion  in  this  section  are  integrated 
into  the  text. 

4.2.3.1  Variable  Access  and  Assignment  Predicates 

No  special  predicates  are  needed  to  access  normal 
temporary  variables  or  method  parameters;  these  are 
handled  automatically  in  Prolog.  However,  variable 
access  and  assignment  predicates  are  needed  to 
manipulate  instance  and  class  variable  data  structures. 
The  operations  that  may  be  performed  on  an  instance  or 
class  variable  are  setting  the  value  and  retrieving  the 
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value  of  the  variable.  Figures  4.5a  and  4.5b  are  the 
predicates  for  these  operations  on  instance  and  class 
variables,  respectively. 
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set_ivar (Inst, Name, Val)  :- 

/*  if  it  is  a  legal  variable  */ 

/*  retract  the  old  value,  assert  the  new  value  */ 

retract(i_var_val(Inst,Name,_) ) , 

assert! i_var_val( Inst, Name, Val) ) , ! . 

set_ivar( Inst, Name, Val)  :- 

/*  else  write  appropriate  message  to  screen  */ 
write (Name) , 

write ( '  is  not  a  legal  instance  variable  name'), 
writej'  in  ' ) ,write(Inst) ,nl, ! . 


get_ivar(Inst, Name, Val)  :- 

/*  if  it  exists,  instantiate  Val  */ 
i_var_val ( Inst , Name, Val) ,  nonvar(Val) , ! . 

get_ivar( Inst, Name, Val)  :- 

/*  if  the  variable  is  not  already  instantiated,  */ 
/*  write  an  appropriate  message  to  the  screen  */ 
i_var_val(Inst, Name, Val) ,  var(Val),  !, 
write ( Name ), write ( '  is  not  yet  instantiated  in  ' ) , 
write ( Inst ) , nl , ! , fail . 

get_ivar( Inst, Name, Val)  :- 

/*  else  write  appropriate  message  to  screen  */ 
write (Name) , 

write! '  is  not  an  instance  variable  for  '), 
write ( Inst ) , nl , ! , fail . 


Figure  4.5a.   Instance  Variable  Clauses. 
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set_cvar( Inst, Name, Val)  :- 

/*  if  it  is  a  legal  variable  */ 

/*  retract  the  old  value,  assert  the  new  value  */ 

c_var_path( Inst, Name, Owner ) , 

retract (c_var_val( Owner , Name, _) ) , 

assert (c_var_val( Owner, Name, Val) ) , ! . 

set_cvar( Inst, Name, Val)  :- 

/*  else  write  appropriate  error  */ 

/*  message  to  screen  */ 

write (Name) , 

writej '  is  not  a  legal  class  variable  name'), 

write('  in  ' ) ,write(Inst) ,nl, ! . 


get_cvar( Inst, Name, Val)  :- 

/*  if  it  exists,  instantiate  Val  */ 

c_var_path ( Inst , Name , Owner ) , 

c_var_val( Owner, Name, Val) ,  nonvar(Val) , ! . 

get_cvar( Inst, Name, Val)  :- 

/*  if  the  variable  is  not  already  instantiated,  */ 

/*  write  an  appropriate  message  to  the  screen  */ 

c_var_path(Inst, Name, Owner) , 

c_var_val (Owner, Name, Val ) ,  var(Val) ,  !, 

write ( Name ), write ( '  is  not  yet  instantiated  in  ' ) , 

write ( Inst ) , nl , ! , fail . 

get_cvar( Inst, Name, Val)  :- 

/*  else  the  variable  is  not  a  class  */ 

/*  var  for  this  instance  */ 

write (Name) , 

write ( '  is  not  a  class  variable  for  '), 

write (Inst) ,nl, ! ,fail. 

Figure  4.5b.   Class  Variable  Clauses. 
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The  predicate  set_ivar(Inst, Name, Val)  ascertains 
that  Name  is  the  name  of  a  legal  instance  variable  for 
Inst,  retracts  the  old  value,  and  asserts  the  new 
value.  If  it  is  not  a  legal  variable,  the  expected 
error  message  is  reported. 

The  predicate  get_ivar (Inst, Name, Val)  is  used  to 
retrieve  the  value  of  an  instance  variable.  get_ivar 
ascertains  that  Name  is  a  valid  variable  for  Inst, 
verifies  that  the  variable  has  an  instantiated  value, 
and  returns  the  value  in  Val.  If  the  variable  is 
either  not  set  or  not  valid,  the  expected  error  is 
reported. 

The  predicates  for  class  variables  are  set_cvar/3 
and  get_cvar/3.  They  operate  in  a  manner  analogous  to 
their  instance  variable  counterparts. 

4.2.3.2  Message  Sending  Predicates 

The  run-time  support  predicates  shown  in  Figure 
4.5c  perform  operations  for  message  sending.  A  partial 
trace  of  send_mesg/2  for  the  circuit  example  is  in 
Appendix  H.  For  the  predicate  send_mesg/2,  Meth  is 
the  name  of   the  method   being   invoked,    Inst   is 
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the  instance  receiving  the  message,  and  Args  is 
the  list  of  arguments  to  the  method.  Line  (2)  checks 
that  the  method  is  defined  and  instantiates  Def_class 
to  the  name  of  the  class  that  defined  the  method. 
Using  Def_class,  line  (3)  is  able  to  proceed  directly 
to  the  Prolog  fact  containing  the  method  and 
instantiate  the  method's  code  to  Method.  Line  (4) 
asserts  Method  at  the  beginning  of  the  database, 
effectively  stacking  method  definitions.  Lines  (5) 
and  (6)  break  Method  into  components  and 
instantiate  the  arguments  of  the  method  with  the  list 
of  Args  and  Inst  of  (1).  In  (5),  If  is  :-,  Goal 
is  the  atom  corresponding  to  the  principal  functor 
and  uninstantiated  arguments  of  Method,  and  Body  is 
the  body  of  the  method.  Line  (6)  takes  Goal  and 
instantiates  the  arguments  of  the  method  to  Inst,  the 
name  of  the  instance  being  sent  the  message,  and 
Args,  the  list  of  arguments  given  to  send_mesg. 
Line  (7)  calls  the  predicate  that  was  asserted  in  (4), 
using  the  goal  constructed  in  (6).  After  the  call  has 
completed,  (8)  retracts  the  code  for  the  method  so 
that   no  other  instance  can   access   that   particular 
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instance  of  the  method.   The  remaining  predicates  in 
Figure  4.5c  are  used  for  failure  and  error  recovery. 
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send_mesg( [Meth, Inst| Args] ,op(_) )  :-  (1) 

meth_path(Inst,Meth,Def_class) ,  (2) 

meth_defn(Def_class,Meth, Method) ,  (3) 

asserta ( Method ) ,  (4) 

Method=.. ([If, Goal, Body]),  (5) 

Goal=. .( [Meth,Inst|Args]),  (6) 

call (Goal),  (7) 

retract ( Method) ,! .  (8) 

clean_up([Meth, Inst j Args ],op(_))  :-  (9) 

meth_path(Inst,Meth,Def_class) ,  (10) 

meth_defn(Def_class,Meth, Method) ,  (11) 

retract ( Method) ,! .  (12) 

send_mesg( [Meth, Inst | Args] , opt ?<) )  :-  (13) 

inst(Inst),  (14) 

not (meth_path( Inst, Meth, _) ) ,  (15) 

write (Meth),  (16) 
write('  is  not  an  appropriate  message'),  (17) 

write( '  for  ' ),  (18) 

write ( Inst ) ,nl,  (19) 

clean_up( [Meth, Inst j Args] ,op(_) ) .  (20) 

send_mesg( [Meth, Inst| Args], opt <?) )  :_  <21> 

not (inst( Inst) ) ,  (22) 

write (Inst),  (23) 

write('  is  a  non-existent  object'),  (24) 

nl,  (25) 

clean_up( [ Meth, Inst | Args] ,op(_) ) .  (26) 

send_mesg( [Meth, Inst | Args ],op(<<) )  :-  (27) 

inst(lnst),  (28) 

not(meth_path(Inst,Meth,_) ) ,  (29) 

write(Meth),  (30) 
write)'  is  not  an  appropriate  message'),  (31) 

writeC  for  '  ),  (32) 

write ( Inst ) ,nl,  (33) 

clean_up( [Meth, Inst | Args] ,op(_) ) .  (34) 

Figure  4.5c.  send_mesg  Clause. 
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send_mesg( [Meth,Inst | Args] ,op(<<) )  :-  (35) 

not(inst(Inst)),  (36) 

write (Inst),  (37) 

write ( '  is  a  non-existent  object'),  (38) 

nl,  (39) 

clean_up( [Meth, Inst j Args] ,op(_) ) .  (40) 

send_mesg( [Meth,Inst | Args] ,op(?<?) )  :-  (41) 

clean_up( [Meth, Inst j Args] ,op(_) ) .  (42) 

Figure  4.5c.  (continued)   send_mesg  Clause. 
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4.3   Translation  From  OOP  to  C-Proloq 

Translation  of  an  OOP  program  involves  a  two  step 
process.  The  source  program  is  first  input  to  the 
scanner  (Appendix  D)  which  outputs  a  token  list.  This 
token  list  is  then  processed  by  the  parser  (Appendix 
E).  Before  the  parser  is  discussed,  there  is  a  brief 
review  of  Definite  Clause  Grammars. 

4.3.1  Scanner 

The  scanner  is  implemented  in  C-Prolog  and  scans 
the  current  input  stream.  The  significant  part  of  the 
scanner  is  how  the  tokens  are  returned.  The  output 
variable  for  scan/2  is  a  Prolog  list.  Each  member  of 
the  list  is  in  the  form 

functor ( atom ) 
where  functor  is  a  tag  for  the  token  and  atom  is  the 
actual  token.   A  complete  description  of  the  tags  is  in 
Appendix  D. 

4.3.2  Definite  Clause  Grammar  Review 

A  Definite  Clause  Grammar  (DCG)  is  an  executable 
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Prolog  program  that  is  a  natural  extension  of  context- 
free  grammars  [ ] .  Grammar  productions  in  DCG  notation 
are  represented  as 

nonterminal  — >  body. 
There  are  two  major  extensions  to  context-free  grammars 
that  are  included  in  DCG  notation:   the  nonterminal 
head  may  have  arguments;   semantic  actions  may  be 
included  in  the  body. 

The  nonterminal  may  take  the  same  form  as  a  normal 
Prolog  predicate  head:   functor (arguments)  or  functor. 

When  specifying  the  body  for  a  production,  there 
are  three  different  types  of  components:  nonterminals, 
terminals,  and  semantic  actions.  Nonterminals  in  the 
body  also  have  functor  and  optional  arguments;  the 
nonterminal  should  be  the  head  of  a  production. 
Terminals  are  enclosed  in  square  brackets.  Semantic 
actions  are  normal  Prolog  clauses  and  are  enclosed  in 
curly  brackets. 

To  understand  how  Prolog  handles  DCG  notation, 

consider  the  following  DCG  production: 

a(X,Y)  — > 

b(X) ,d(Y) , [someterminal] , {semantic_action<X) } . 

When  this  production  is  consulted  by  Prolog,  it  is 
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asserted  as 

a(X,Y,Ll,L2):- 

b(X,Ll,_l),d(Y,_l,_2), 
c ( _2 , someterminal , L2 ) , 
semantic_action(X) . 

In  the  head  of  this  predicate,  Prolog  appends  two 

additional  arguments.   These  arguments  handle  the  token 

list  to  be  parsed:   LI  is  the  input  token  list,  L2  is 

the  output  list  consisting  of  the  tokens  not  yet 

parsed.    Each  nonterminal   in  the  body  also  has 

arguments  appended  for  the  same  purpose.    In  this 

example,  b/3  is  a  call  to  a  nonterminal.   The  input 

token  list  is  LI  and  _1  is  the  list  of  tokens  not 

consumed  by  b/3.   The  output  list  of  b/3  (_1)  is  used 

as  the  input  list  for  d/3. 

To  process  terminals,  Prolog  uses  its  own 
predicate  c/3.  This  predicate  takes  the  input  token 
list  as  its  first  argument  (_2),  attempts  to  unify  its 
second  argument  someterminal  with  the  head  of  its  first 
argument,  and  returns  the  tail  of  the  token  list  in  its 
third  argument  ( L2 ) . 

Semantic  actions  are  always  normal  Prolog  clauses. 
No  additional  arguments  are  needed  because  they  do  not 
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process  the  token  list;  semantic  actions  are  asserted 
directly  and  perform  actions  appropriate  to  the  current 
context. 

4.3.3  Parser 

The  prototype  parser  is  implemented  using  the  DCG 
notation  described  in  the  previous  section.  Source 
code  for  the  parser  is  in  Appendix  E.  Discussion  of 
the  parser  is  according  to  the  OOP  statement  category: 
class  definition,  instance  creation,  or  top  level 
message  transmission.  In  Appendices  I,  J,  and  K  there 
are  traces  of  the  parsing  for  each  of  these  types  of 
statement.  These  traces  are  performed  on  segments  of 
the  circuit  example. 

4.3.3.1  Parsing  Class  Definitions 

The  class  definition  parsing  entails  getting  the 
class  name  and  its  properties.  In  the  semantic 
actions,  the  parser  verifies  that  another  class  by  the 
same  name  has  not  already  been  defined,  and  reports  an 
error  if  it  is  proven  otherwise.   The  semantic  actions 
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also  check  for  a  match  between  the  beginning  and  ending 
class  names  for  the  class  definition. 

The  properties  of  a  class  include  the  declarations 
of  the  superclass,  class  and  instance  variables,  and 
the  methods.  Suitable  error  checking  is  also  provided 
for  superclass  and  variable  declarations  (referencing 
undefined  classes,  variables  already  defined  for  the 
class,  and  the  like).  Error  checking  for  method 
declarations,  however,  is  left  for  the  C-Prolog 
interpreter . 

Since  tokens  produced  by  the  scanner  are  atoms, 
some  problems  with  variable  instantiation  for  methods 
arose.  The  task  was  to  construct  the  target  version  of 
the  method  from  a  list  of  atoms.  Consider  the 
following  productions: 

term(X)  — >  variable(X). 

variable(Z)  — >  [vbl(Z)]. 
Using  this  form,  term  returns  an  uninstantiated 
variable  X  and  Prolog  gives  the  returned  variable  a 
temporary  anonymous  variable  name.  This  name  is  an 
underscore  followed  by  an  incremented  number,  such  as 
_14.   The  next  time  an  uninstantiated  variable  occurs 

55 


Chapter  4  Object  Oriented  Extension  of  Prolog 

at  the  same  level,  it  will  be  _15,  and  so  forth.  This 
process  of  assigning  anonymous  variable  names  causes 
problems  when  a  variable  name  occurs  in  a  method  more 
than  once:  every  time  that  variable  is  encountered, 
Prolog  will  give  it  yet  another  name.  If  the 
constructed  target  method  is  asserted,  it  will  not  work 
as  expected  because  it  has  different  variables  than  the 
source  code  had.  This  problem  demonstrated  some 
shortcomings  of  C-Prolog:  there  is  no  predicate  that 
facilitates  the  conversion  of  atoms  to  variables;  there 
is  no  access  to  anonymous  variables. 

For  lack  of  a  better  option,  the  method  is 
constructed  by  writing  the  predicate  to  a  file  called 
.method  as  it  is  parsed  and  maintaining  a  symbol  table 
for  anonymous  variables.  When  the  complete  method  has 
been  parsed,  .method  is  consulted,  thus  asserting  the 
method  declaration. 

Writing  to  .method  is  separated  into  two  stages. 
Whenever  a  get_ivar/3  or  get_cvar/3  predicate  is  needed 
to  get  a  value  for  an  expression,  that  predicate  is 
written  to  .method  immediately.  This  ensures  that  the 
value  will  be  available  for  the  expression  using  the 
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instance  or  class  variable.  All  other  parts  of  the 
method  body  are  kept  in  a  list  of  printable  elements 
that  is  printed  to  .method  after  the  entire  method  has 
been  parsed. 

4.3.3.2  Parsing  an  Instance  Creation  Statement 

Instance  creation  has  the  expected  error  checking. 
If  an  instance  with  the  same  name  already  exists,  or 
the  class  requested  is  not  defined,  the  appropriate 
error  is  reported.  If  no  error  occurs,  the  data 
structures  discussed  in  section  4.4.2  are  asserted. 

4.3.3.3  Parsing  Top  Level  Message  Transmissions 

The  parser  handles  top  level  message  transmission 
by  calling  the  send_mesg/2  predicate  in  its  semantic 
actions.  The  production  for  top_lev_mes_trans/0 
extracts  the  name  of  the  receiver,  the  message 
operator,  the  message  and  any  arguments.  Using  these 
values,  the  semantic  actions  call 

sendmesg ( [ Message , Receiver  J  Args ] , op ( Operator ) ) 
thus  sending  the  message. 
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4 . 4  Execution 

A  sample  session  with  OOP,  using  the  circuit 
example,  is  in  Appendix  A.  The  first  step  to  using  OOP 
is  invoking  the  prolog  interpreter  from  the  operating 
system  prompt.  Once  the  Prolog  prompt  appears  (  ?-  ) , 
consult  the  file  "oop";  this  file  is  the  OOP  interface 
and  can  be  found  in  Appendix  B.  "oop"  begins  by 
printing  the  OOP  banner  and  consulting  the  file  "load" 
(Appendix  C)  .  The  appropriate  files  for  the  scanner 
(Appendix  D)  ,  parser  (Appendix  E) ,  and  run-time 
predicates  (Appendix  F)  are  consulted  by  "load". 

After  the  system  is  loaded,  "oop"  prompts  the  user 
for  the  name  of  the  file  containing  the  OOP  source 
code.  "oop"  then  scans  that  file  and  invokes  the 
parser,  passing  the  token  list  as  the  first  argument  to 
the  parser. 

In  the  parser,  structures  generated  from  the 
declarations  store  the  class  hierarchy,  variable  names, 
and  method  names  and  bodies.  Structures  generated  from 
the  instance  creation  statements  store  instance  names, 
and  variable  and  method  names  for  each  object. 
Finally,   when   a   message   sending   operation   is 
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encountered,  a  send_mesg/2  predicate  is  invoked,  with 
the  variables  being  bound  to  the  name  of  the  instance, 
the  message,  and  the  message  sending  operator. 

4.5  Conclusions  and  Discussion 

The  system  implemented  is  a  prototype,  not  a 
complete  system.  The  system,  as  implemented,  takes 
approximately  9.7  seconds  to  load  and  contains  30.34K 
of  rules  facts  and  productions.  The  largest  portion  is 
the  parser,  containing  98  productions.  Using  the 
circuit  example  as  the  only  basis,  the  target  C-Prolog 
version  is  just  about  four  times  the  size  of  its  OOP 
source.  The  deepest  nesting  of  calls  for  each  type  of 
statement  for  the  circuit  example  are  as  follows: 
class  definition,  27  calls;  instance  creation 
statement,  12  calls;  top  level  message  transmission,  26 
calls. 

While  working  on  this  implementation,  some 
issues  became  apparent.  The  first  deals  with  the 
sequential  stacking  of  methods  using  asserta  and 
retract.  This  inhibits  possible  operations  that 
allow  further    extension    of  concurrent    objects. 
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Second,  there  is  the  familiar  tradeoff  between 
minimizing  required  memory  and  maximizing  execution 
speed.  As  described,  each  instance  creation  in 
the  main  section  causes  the  assertion  of  several 
facts  that  increase  the  speed  of  execution.  For 
example,  the  fact  "meth_path"  eliminates  the  search 
for  the  body  of  the  method  to  be  executed  and  tells 
"send_mesg"  exactly  how  to  get  there.  The  tradeoff 
is  that  there  is  one  of  these  facts  asserted  for 
every  method  that  the  instance  is  allowed  to  invoke. 
This  also  occurs  with  the  assertion  of  c_var_path.  The 
issue  causing  the  most  difficulty  is  the  lack  of 
operators  in  C-Prolog  for  variable  handling  (discussed 
in  section  4.3.3.1). 

Future  directions  with  this  prototype  may  include 
adding  multiple  inheritance,  and  pseudo  instance  names 
for  instances  to  reference  themselves  and  any  other 
classes  in  it's  lineage  (ancestors  and  descendants). 
Much  more  testing  and  extension  of  the  method  body  and 
arguments  are  also  possible. 
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APPENDIX  A   SAMPLE  SESSION  WITH  OOP 
C-Prolog  version  1.4 

|  ?-  [oop]. 

***************************************************** 

OOP 
An  Object  Oriented  Extension  of  Prolog 

(Partial  Implementation) 

by  Michael  Kondor 
***************************************************** 

Please  wait,  loading  scanner  and  parser. 
***************************************************** 


scanner  reconsulted  7104  bytes  2.01667  sec. 
yes 

parser  reconsulted  412  bytes  0.166668  sec. 
yes 

class_defn  reconsulted  1144  bytes  0.266667  sec. 
yes 
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super_class_decl  reconsulted  3  92  bytes  0.150001  sec. 
yes 

var_decl  reconsulted  2224  bytes  0.716666  sec. 
yes 

meth_decl  reconsulted  2220  bytes  0.683333  sec. 
yes 

pseudo  reconsulted  348  bytes  0.150003  sec. 
yes 

tlmt  reconsulted  616  bytes  0.150002  sec. 
yes 

operators  reconsulted  3008  bytes  0.983334  sec. 
yes 


inst_create  reconsulted  2168  bytes  0.616667  sec. 
yes 


body  reconsulted  5008  bytes  1.65  sec. 
yes 

preds  reconsulted  2576  bytes  0.750002  sec. 
yes 


support_preds  reconsulted  3844  bytes  1.1  sec. 
yes 


load  consulted  31064  bytes  9.76666  sec. 
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***************************************************** 

Please  enter  the  name  of  the  file  containing  your 

OOP  program  (followed  by  a  period)  in  one  of  the 

following  forms: 

If  in  the  current  directory,  just  the  filename 

If  in  another  directory,  enter  the  entire 

path  in  single  quotes 

(e.g.  '/usrb/kondor/design/testprog' ) 


What  is  the  filename?   testprog. 
***************************************************** 


outl  is  1 
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APPENDIX  A   SAMPLE  SESSION  WITH  OOP 
OOP_Source  =  testprog 


psym(  ; )  ,atn>( methods)  ,atm(in2)  ,spsym(  (  )  ,vbl(X)  ,spsym(  ) ) , 
spsymi :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,sp 
sym( : )  ,vbl(Temp)  ,spsym(  ) )  ,spsym( , )  ,spsym(  ( )  ,spsym( :  )  ,vb 
l(To_inst) , spsymi <<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl 
(Out)  ,spsym(  ) ) , spsym( ) »  ■>»•■>«■»<  »  ««-™T«»t.^i  =t-»'"'f  <-i  ■« 
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APPENDIX  A   SAMPLE  SESSION  WITH  OOP 

Y  =  [] 

yes 

]  oop  consulted  34664  bytes  20.3167  sec. 

yes 

!  ?- 

[  Prolog  execution  halted  ] 
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APPENDIX  B   OOP  INTERFACE  SOURCE 


% 

%  File:   oop 

%       

?-  tell (user) ,nl,nl,tab( 10) , 

write( i****************************************1 ) , 

write ( •*************') ,nl,tab(10), 

write ('  OOP'),nl,  tab(10), 

write!'       An  Object  Oriented  Extension  of), 

writef  '  Prolog' ) ,nl,nl,nl,tab(10) , 

write! '  (Partial  Implementation) ') ,nl, 

nl,nl,tab(10) , 

write('  by  Michael  Kondor ' ) , nl , 

tab(10)  , 

write(  >******************************************'  ) , 

writef '***********' ) ,nl,nl,tab(10) , 

write! 'Please  wait,  loading  scanner  and  parser.'), 

nl,nl,tab(10) , 

write ( i******************************************' ) r 

writef  i***********'  j  nl 

consult ( load ) , nl , nl , nl , tab ( 10 ) , 

write!  t  it*****************************************1  ) , 

writef '***********' ),nl,tab(10) , 

writef 'Please  enter  the  name  of  the  file'), 

writef'  containing  your   ' ) ,nl,nl,tab(10) , 

writef 'OOP  program  (followed  by  a  period)  in  one'), 

writer  of  the  ' ) ,nl,nl,tab(10) , 

write( 'following  forms:  ' ) ,nl,nl,tab(15) , 

writef 'If  in  the  current  directory,  just  '), 

writef 'the  filename' ) ,nl,nl,tab(15) , 

writef 'If  in  another  directory,  enter  the  entire  '), 

nl,tab(15) , writef 'path  in  single  quotes' ),nl, 

tab(15), writef ' (e.g.  '), 

writeqf ' /usrb/kondor/design/testprog' ) , 

writef ' ) ' ) ,nl,nl, 

tabflO), 

write! 'What  is  the  filename?   '), 

see (user) ,read(OOP_Source) , seen, tab (10) , 

wr ite( ' ******************************************* ) , 

writel '***********' ) ,nl. 


told, 

see ( OOP_Sour ce ),  scan (32, X), seen , 

oop(X,Y) ,seen. 
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% 

%  File:   load 

%  "" "" 

?-  reconsult ( scanner ) . 

?-  reconsult ( parser ) . 

?-  reconsult(class_defn) . 

?-  reconsult! super_class_decl) . 

?-  reconsult ( var_decl ) . 

?-  reconsult (meth_decl) . 

?-  reconsult ( pseudo ) . 

?-  reconsult ( tlmt) . 

? -  reconsult ( operators ) . 

? -  reconsult ( inst_create ) . 

?-  reconsult ( body) . 

? -  reconsult ( preds ) . 

? -  reconsult ( suppor t_preds ) . 
% 
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%  "scanner" 

%  The  tokens  are  returned  in  the  following  form: 

%  functor ( atom ) . 

%  The  functor  describes  the  token  and  the  argument  is 

%  the  token  in  atomic  form.    The  types  of  tokens 

%  returned  are: 

% 

%   string(X)    chars  that  appeared  between  a  pair  of 

%  "  " 

%   qatom(X)     chars  that  appeared  between  a  pair  of 

%  '  ' 

%   vbl(X)       token  starting  with  a  capital  letter 

%  or  underscore 

%   atm(X)       token  starting  with  a  lowercase  letter 

%   num(X)       numeric   token   (does   not   handle 

%  floating  point  numbers) 

%   spsym(X)     special  symbol  (token  not  in  above 

%  categories) 


scan ( 0 ,[ string ( String ) , spsym ( Quote ) | TokenList ] )  : 

getO(C), 
getstring(C,S) , 
name(String,S) , 
name ( Quote ,[34]), 
1, 

scan ( 3  2 , TokenList ) . 
scan ( 1 , [ qatom ( QAtom ) , spsym ( Quote ) j TokenList ] )  : - 

getO(C) ,getqatom(C,A) , 
name (QAtom, A) , 
name ( Quote ,[39]), 
!, 

scan! 3 2, TokenList) . 
scant 26,[])  :-  !.  %  "~Z"  ==>  end  of  input 
scan (3 2, TokenList)  :- 

getO(Ch),  !, 
scan(Ch, TokenList) . 
scan( 10, TokenList)  :- 

getO(Ch),  !, 
scan ( Ch , TokenList ) . 
scan(Ch, [spsym(Wd) [TokenList] )  :- 

getspecialsymbol(Ch,Wd,LastCh) ,  !, 
scan (Lastch, TokenList) . 
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%  get  a  word  or  a  number 
scant Ch, [Wd|TokenList] )  :- 

getword(Ch,Wdl,LastCh) , 

(isvar(Wdl,Wd) ;isatom(Wdl ,Wd) ; 

isnum(Wdl,Wd)) , 

i 

scan ( LastCh , TokenList ) . 
scant Ch, [Wd]TokenList] )  :- 

name(Wd, [Ch] ) ,  nl, 

write (Wd) , 

write!'        <==  **  invalid  token  **'), 

nl,  nl, 

!,  fail. 


getword(Ch,[Ch|Wdl], LastCh)  :- 

letter (Ch),  !, 

getO ( Chi ) , 

isname ( Chi , Wdl , LastCh ) . 
getword (Ch,[Ch | Wdl], LastCh)  :- 

digit (Ch),  !, 

getO(Chl) , 

isnumber ( Chi , Wdl , LastCh ) . 

isname(Ch, [Ch|Wd] , LastCh)  :- 

letter(Ch),  !,  getO(Chl),  isname ( Chi, Wd, LastCh ) . 
isname (Ch,[Ch|Wd], LastCh)  :- 

digit(Ch),  !,  getO(Chl),  isname(Chl, Wd, LastCh) . 
isname ( Ch, [] , LastCh)  :-  LastCh=Ch. 

isnumber (Ch, [ChjWd] , LastCh)  :- 

digit(Ch),  !,  getO(Chl),  isnumber (Chi, Wd, LastCh) . 
isnumber ( Ch, [] , LastCh)  :-  LastCh=Ch. 

letter(Ch)  :-  upperletter(Ch) ; 
lower letter (Ch) . 
lowerletter(Ch)  :-  Ch>96,  Ch<123.    %  lowercase  letter 
upperletter(Ch)  :-  Ch>64,  Ch<91;     %  capital 

Ch  =  95.         %  underscore 
digit(Ch)  :-  Ch>47,  Ch<58. 

isvar( [H|T] ,vbl(X) )  :-  upperletter (H) ,  name(X, [H|T] ) . 
isatomt [H|T],atm(X) )  :-  lowerletter (H) ,  name(X, [H|T] ) . 
isnum( [H|T] ,num(X) )  :-digit(H),  name(X, [H |T] ) . 
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/*  Operaters  */ 
getspecialsymboK  40, ' 
getspecialsymbol(41, ' 
getspecialsymbol ( 91 , ' 
getspecialsymboK 93, ' 
getspecialsymbol (46, ' 
getspecialsymbol (124, 
getspecialsymbol ( 42 , ' 
getspecialsymbol ( 94 , ' 


,0) 

-  getO(C) 

,C) 

-  getO(C) 

,c) 

-  getO(C) 

,C) 

-  getO(C) 

,c) 

-  getO(C) 

',c) 

:-  getO(C 

,C) 

-  getO(C) 

,C) 

-  getO(C) 

%  token  is  one  of  these: 

% 

getspecialsymboK 5 8, X,C) 


is  58,  -  is  45) 
getO(Cl),  !, 
(CI  \==  45  -> 
(CI  \==  58  -> 
(X  =  ' :',C  =  CI); 

(X  =  '::  \getO(C): 
(X  =  (':-'), getO(O): 


%  token  is  one  of  these: 

% 

getspecialsymboK 6 0,X,C) 


<< 


<? 


(<  is  60,  ?  is  63) 
:-  getO(Cl),  !, 

(CI  \==  63  -> 

(CI  \==  60  -> 

(X  =  '<\C  =  CI); 

(X  =  '«',get0(O): 

(X  =  ('<?'), getO(C))). 


%  token  is  one  of  these: 

>    >=     >> 

% 

(>  is  62,  =  is  61) 

getspecialsymboK  62,X,C) 

:-  getO(Cl),  !, 

(CI  \==  61  -> 

(CI  \==  62  -> 

(X  =  <>' ,C  =   CI); 

(X  =  ■»',getO(C))) 

(X  =  (■>=•), getO(C))). 
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%  token  is  one  of  these:    =  =:   =:  :   =:=  =..   —   -< 
%  (=  is  61,  :  is  58,  .  is  46,  <  is  60) 

getspecialsymbol(61,X,C)    : -  getO ( CI ) ,  !, 

(CI  \==  61  -> 
(CI  \==  58  -> 
(CI  \==  46  -> 
(CI  \==  60  -> 
(X  =  '=' ,C  =  CI); 

(X  =  '=<\getO(C))); 
(getO(C2), !,(C2==46  -> 

(X='=..',getO(C))))); 
(getO(C2),!, 

(C2  \==  58  -> 
(C2  \==  61  -> 
(X  =  '=: ',C  =  C2) ; 

(X  =  '=:=' ,getO(C))); 
(X  =  •=::')))); 
(X  =  '==',getO(C))). 

%  token  is  one  of  these:   ?-   ?<   ?<? 
%  (?  is  63,  -  is  45,  <  is  60) 

getspecialsymbol(63,X,C)    :-  getO(Cl),  !, 

(CI  \==  45  -> 
(CI  ==  60  -> 
(getO(C2),!, 

(C2  \==  63  -> 
(X  =  '?<' ,C  =  C2) ; 
(X  =  '?<?', getO(C))))); 
(X  =  (?-),getO(C))). 

getspecialsymbol(43, '+' ,C)  :-  getO(C). 


%  token  is  one  of  these:    -   -->   -> 
%  (-  is  45,  >  is  62) 

getspecialsymbol(45,X,C)    :-getO(Cl),  !, 

(CI  \==  62  -> 
(CI  \==  45  -> 
(X  =  '-' ,C  =  CI); 
(getO(C2),!, 
(C2  ==  62  -> 
(X  =  '-->•, getO(C)) 
(X  =  '->',getO(C))). 
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%  token  is  one  of  these:   /    //     A 
%  (/  is  47,  \  is  92) 

getspecialsymbol(47,X,C)    :-getO(Cl),  !, 

(CI  \==  92  -> 
(CI  \==  47  -> 
(X  =  '/\C  =  CI); 
(X  =  '//',getO(C))); 

(X  =  c/\'),geto(o: 


%  token  is  one  of  these:   \+   \==    \/ 
%  (\  is  92,  +  is  43,  /  is  47,  =  is  61) 

getspecialsymbol(92,X,C)    : -  getO ( CI ) ,  !, 

(CI  \==  43  -> 
(CI  \==  47  -> 
(CI  ==  61  -> 
(getO(C2),!, 
(C2  ==  61  -> 
(X  =  '\==',getO(C))))); 
(X  =  '\/',getO(C))); 
(X  =  (\+),getO(C))). 

%  token  is  one  of  these:    @<   !>   @=<   ?>= 
%  (g  is  64,  <  is  60,  >  is  62,  =  is  61) 

getspecialsymbol(64,X,C)    :-getO(Cl),  !, 

(CI  \==  60  -> 
(CI  \==  62  -> 
(CI  ==  61  -> 
(getO(C2),!, 

(C2  ==  60  -> 
(X  =  'e=<\getO(C))))); 
(getO(C2),!, 

(C2  ==  61  -> 
(X  =  '?>=',  getO(O); 
(X  =  ,e>',C  =  C2)))); 
(X  =  '9<\get0(C))). 

getspecialsymbol(59, ' ; ' ,C)  :-  getO(C). 
getspecialsymbol(44, ' , ' ,C)  :-  getO(C). 
getspecialsymboK  34,X,0)  :-  name(X,  [  34] )  . 
getspecialsymbol(39,X,l)  :-  name(X, [ 39] ) . 
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getstring( 34, [  ] ) . 

getstring(X,[X',T])  :-  getO( A)  ,getstring(A,T) . 

getqatom(39, t ]) . 

getqatom(X, [XjT] )  :-  getO( A) ,getqatom( A,T) . 


78 


APPENDIX  E   PARSER  SOURCE  (DEFINITE  CLAUSE  GRAMMAR) 


% 

%  File:   parser 

%        


oop  -->  oop_stmt,  oop. 
oop  — >   [ ] . 

%  OOP  STATEMENT 

oop_stmt  -->  class_defn. 
oop_stmt  -->  inst_create. 
oop_stmt  -->  top_lev_mes_trans . 


% 
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%  " 

%  File:   class  defn 
% 

class_defn  -->  [atm(class) ] , 

classname(_beg_name) , 
[atm(has) ] ,  properties (_beg_name) , 
[  atm  ( _end_name ) ] , 
{match(_beg_name,_end_name) } , 
[spsym( '.')]. 

%  the  terminal  [end]  was  moved  down  as  part  of  the 
%  method  definitions. 


classname(Name)  — >  [atm(Name)], 

{ (not(classtree(_,Name) ) )  ->  true; 
(nl,nl, 

write! 'Class  already  defined:   '), 
write ( Name ) , nl , nl ) } . 


properties (_class_name)  -->  supers ( _class_name ) , 

class_vars(_class_name) , 
inst_vars ( _class_name ) , 
methods(  class  name). 
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% 

%  File:   super  class  decl 

%       " " 

%  SUPERCLASS  DECLARATION 

supers(_class_name)  — >  [atm(super_class) ] , 

parent (_class_name) , 
[spsym( ';')]• 

parent (_c las s_name)  — >  [atm ( Parent) ] , 


{ (classtree(_,Parent) , 

assertf (classtree( Parent, _class_name) ) ) )  -> 

true; 

(write( 'Undefined  superclass:   '), 
write ( Parent ) , nl ) } . 
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% 

%  File:   var  decl 
%  • 

%  VARIABLE  DECLARATIONS 

class_vars(_class_name)  — >  [atm(class_var) ] , 

cvar_elmt(_class_name) , 
cvarlist(_class_name) ; 
{true}. 


cvarlist(_class_name)  — >  [spsymt ' , ' ) ] , 

cvar_elmt(_class_name) , 
cvarlist(_class_name) ; 
[spsym( ';')]. 


cvar_elmt(_class_name)  — >  var_name ( Name ) , 

rest_elmt(_class_name,Name) . 

rest_elmt(_class,_var)  — >  [spsym( '=' ) ] ,  init_val(Val) , 
{not(c_var_val(_class,_var ,_) ) , 
assert(c_var_val(_class,_var,Val) ) } ; 

{not(c_var_val(_class,_var,_) ) , 
assert(c_var_val(_class,_var,Undef ) ) } ; 

{ c_var_va l(_class,_var,_), 
write! 'Class  variable  already  '), 
write ( 'defined:   ') .write (' Class  =  '), 
write (_class_name) , 
write('.  Variable  =  '), 
write (Name) ,nl} . 


var_name ( Name )  -->  [vbl(Name)]. 

init_val(Val)  -->  [num(Val)];  [atm(Val)]. 

inst_vars(_class_name)  -->  [atm( instance_var ) ] , 

ivar_elmt(_class_name) , 
ivar_list(_class_name) , 
[spsym( ' ; ' )];  {true}. 
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ivar  list(  class  name) 


->  [spsym( ',')], 

ivar_elmt ( _class_name ) 
ivar_list ( _class_name ) 
{true}. 


ivar_elmt(_class_name)  -->  var_name ( Name ) , 

{ (not(i_var_decl(_class_name,Name) ) )  -> 
(assert! ( i_var_decl(_class_name,Name) ) ) ) ; 

( write (' Instance  variable  already  defined: 
write('   Class  =  ' ) ,write(_class_name) , 
write('.  Variable  =  ' ) ,write(Name) ,nl) } . 
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%  ~ 

%  File:   meth  decl 

%     '  " 

% 

%  All  methods  that  are  unit  clauses  must  be  converted 

%  to  nonunit  clauses  by  using  'true'  as  the  body  of  the 

%  clause.   This  is  necessary  for  the  run-time  predicate 

%  'send_mesg'  to  work  correctly. 

% 

methods (_class_name)  -->  [ atm( methods) ] , 

methodlist(_class_name) . 

methodlist(_class_name)  -->  method_defn(_class_name) , 

rest_mlist(_class_name) . 

rest_mlist(_class_name)  — >  [atm(end)]; 

method_defn(_class_name) , 
rest  mlist(  class  name). 


method_defn(_class_name)  — >  { told, tell (' .method1 ] 

write ( 'meth_defn( ' ) , 
write(_class_name) , 
write ( ',')}, 
meth_head , 
meth_tail, 
{tell (user)}. 


meth_head  -->  [atm(_functor) ] , 
{write (_functor) , 
write ( ' , ( ' ) , write (_functor) 
write! ' (_Instance' )}, 
args(_arglist) , 
printargs(_arglist) , 
{write( ')')}. 


printargs( [ ] )  — >  {true}. 
printargs(_arglist)  — >  {write!','), 

writestr (_arglist) } , 
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args(_arglist)  — >   [spsym! ' ( ' ) ] , 
term( Argl) 


rest_args(Tail) , 
[spsym! ')')], 
{append(Argl,Tail,_arglist) } . 


args( [ ] )  — >  {true} . 

rest_args(List)  — >  [spsym( ' , ' ) ] ,  term(H), 
rest_args(T) , 
{append( [ ' , ' ] , H, Tempi) , 
append ( Tempi, T, List) } . 

rest_args( [ ] )  -->  {true}. 


meth_tail  -->  [spsym( (:-))] ,  {write!'  :-  ')}, 
body, 
{consult! ' . method ' ) } ; 

[spsym! '.')] ,  {write! ': -true. ') , 
consult! ' .method1 ) } . 
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% 

%  File:   body 

% ' 

body  -->  subgoallist,  [spsym( ' . ' ) ] , 
{write! ')).'),nl>. 


subgoallist  -->  subgoal,  moresubgoals . 

moresubgoals  -->  [spsyml ' , ' ) ] ,  {write!',')}, 
subgoallist;  {true}. 

subgoal  -->  exp(Str),  {writestr (Str) } . 

exp(S)  -->  unop(Op),  term(T),  {X=. . [Op,T] ,fail} ; 
message! S) ; 

term! SI) ,restexp(Sl,S) ; 
[spsym! ' ( ' ) ],  exp(Sl),  [spsym! ' ) ' ) ] , 
{ append (['('], SI , Temp ) , 
append(Temp,[ ' ) ' ] ,S)}. 

restexp(S_in,S_out)  — >  binop(Op) ,term(S2) , 
{ append ( S_in, [ '  ' ,0p, '  '],Temp), 
append ( Temp , S2 , S_out ) } ; 

spvarasgn(=: ) ,term(T2) , 

{name (Quote, [39] ) , 

append( [ 'set_ivar(_Instance, ' ] , [Quote] , Tempi) , 

append! Tempi, S_in,Temp2) , 

append ( Temp2 , [ Quote ] , Temp3 ) , 

append ( Temp3 ,[','], Temp4 ) , 

append ( Temp4 , T2 , Temp5 ) , 

append ( Temp5 ,[')'], S_out ) } ; 

spvarasgn(=: : ) ,term(T2) , 

{name (Quote, [39] ) , 

append! [ 'set_cvar(_Instance, ' ] , [Quote] , Tempi) , 

append ( Tempi , S_in , Temp2 ) , 

append ( Temp2 , [ Quote ] , Temp3 ) , 

append (Temp3 ,[','] ,Temp4) , 

append ( Temp4 , T2 , Temp5 ) , 

append ( Temp5 ,[')'], S_out ) } . 

restexp(S_in,S_in)  — >  {true}. 
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term(Str)  -->  pred(Str);  const(Str);  variable ( Str ) ; 
spvbl ( Str ) ; 

[spsymCO],   exp(Sl),    [spsymt ')')] , 
{append([ ' ( ' ], SI, Temp) , 
append ( Temp ,[')'], Str ) } ; 

[spsymt '(' )],  term(Sl),  [spsymt ')')] , 
{append! [ ' ( ' ] , SI, Temp) , 
append(Temp, [ ' ) ' ] ,Str) }  . 

pred(X)  -->  [atm(_functor) ] ,  args(_arglist) , 
{ (_arglist=[ ] )->(X=[_functor] ) ; 

(append) [_functor] ,['('] , Tempi) , 
append(Templ,_arglist,Temp2) , 
append(Temp2,[' ) ' ],X))}. 

const! [X])  -->  [num(X)]; 
[atm(X)]. 
const! [""  ,X,""  ])  -->  [spsym(  ""  ) ] , [string(X) ] , 

[spsymt  ""  )]. 
const ( [Quote, X, Quote ] )  -->  [ spsym ( Quote )] , 

fqatom(X) ] , 
[ spsym ( Quote ) ] , 
{name (Quote, [39] ) }. 

variable([Z])  — >  [vbl(Z)]. 

spvbl( [Anon] )  -->  spvaraccess( : ) , 

{write( ' get_ivar (_Instance, ' ) } , 

variable! [2] ) , 

{ lookup ( vbl ( Z ) , Anon ) , 

writeq(Z) ,write( ' , ' ) , 

write (Anon) , write! '),')}; 

spvaraccess(  :  : )  , 

{write! 'get_cvar(_Instance, ' )}, 

variable! [Z] ) , 

{ lookup ( vbl ( Z ) , Anon ) , 

writeq(Z) , write ( ' , ' )  , 

write(Anon) ,write( '),')}. 
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message(Str)  -->  receiver (Receiver) ,  mesgop(Op), 
mesg(Meth) ,  args(Arglist) , 
{append! [ ' send_mesg( [ ' ] ,Meth, Tempi ) , 
append ( Tempi ,[','], Temp2 ) , 
append (Temp2, Receiver, Temp 3 ) , 
append (Temp3 ,[','] ,Temp4) , 
append (Temp4, Arglist,Temp5) , 
append ( Temp5, [ ' ] , ' ,op(Op) , ' ) ' ] ,Str) }. 

receiver (Receiver)  — >  [atm(_functor ) ] , 

{Receiver=[_functor ] } ; 
variable (Receiver) ; 
spvbK Receiver) . 

mesg(Meth)  -->  [atm(_meth) ] , {Meth=[_meth] } ; 
variable (Meth) ; 
spvbl(Meth) . 
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% 

% 

%  " 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 

binop 


File: 


operators 


(:-))    — >    [spsym((: 
-->)    -->    [spsym(--> 
->)    -->    [spsym(->)] 
=)    -->    [spsym(=)]. 
=..)    — >    [spsym(=.. 
==)    — >    [spsym(==)] 
\==)    -->    [spsym(\== 
@<)    -->    [spsym(@<)] 
@>)    -->    [spsym(?>)] 
@=<)    — >    [spsym(@=< 
@>=)    — >    [spsym(@>= 
=:=)    -->    [spsym(=:= 
=\=)    -->    [spsym(=\= 
<)    -->    [spsym(<)]. 
>)    -->    [spsymO)]. 
=<)    -->    [spsym(=<)] 
>=)    -->    [spsym(>=)] 
+)    -->    [spsym(+)]. 
-)    -->    [spsym(-)]. 
/\)    — >    [spsym(A)] 
\/)    — >    [spsym(\/)] 
*)    -->    [spsym(*)]. 
/)    -->    [spsym(/)]. 
//)    — >    [spsym(//)] 
>>)    -->    [spsym(>>)] 
")    -->    [spsymO]. 
mod)    — >    [atra(mod)] 
is)    -->    [atm(is) ] . 


■))]. 

]. 


?-l 


unop( 
unop( . 
unop ( not 
unop(\+. 
unop ( spy ) 


))  -->  [spsym( (:-))]. 
>  [spsym( (?-))]. 


— >  [atm(not)] 
-->  [spsym(\+)j. 
,  — >  [atm(spy) ]. 
unop(nospy)  -->  [atm(nospy) ] . 
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mesgop(<<)  — >  [spsym( <<) ] . 
mesgop(<?)  -->  [spsym(<?) ] . 
mesgop(?<)  — >  [spsymi ?<) ] . 
mesgop(?<?)  — >  [spsym(?<?) ] . 


spvarasgn(= 
spvarasgn(= 


-->  [spsym(=: ) ] . 
—  >  [spsym(=: : )]  . 


spvaraccesst : )  -->  [spsym(:)]. 
spvaraccess( : : )  -->  [spsym(::)], 
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% 

%  File:   pseudo  (stub — not  implemented) 

%  

pseudo_inst_name(Name)  — >  [atm(self)],  {Name  =  self}; 

[atm(super) ] ,  {Name  =  super}; 

[atm(here)],  {Name  =  here}; 

[ atm( above) ] ,  {Name  =  above}. 
%  " 
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% 

%  File:   inst  create 

%  *"*" ~w 

inst_create  -->  [atm( instance) ] , 


inst_name( Instance, Err 1) ,  [atm(isa) ] , 
class (_class_name,Err2) ,  [spsym( '.')], 
{Errl  =  0,Err2  =  0, 
assert( (inst( Instance, _class_name) ) ) , 
get_c_vars( Instance, _class_name) , 
get_i_vars( Instance, _class_name) , 
get_meth_paths ( Instance ,_class_name ) } . 


class(_class_name,Err )    -->    [atm(_class_name) ] , 

{ (not(classtree(_,_class_name) ) , 
nl, write ( 'Class  not  defined  '), 
write ('in  instance  '), 
write) 'creation:  '), 
write(_class_narae) ,nl. 
Err  =1); 
Err  =0}. 


inst_name( Instance, Err)  -->  [atm( Instance) ] , 
{ (inst(Instance,_) , 

write ( 'Instance  already  defined:   '), 
write (Instance) ,nl,Err=l) ;Err=0} . 


get_c_vars( Instance, _class_name)  :- 

c_var_val(_class_name,Var ,_) , 
not(c_var_path( Instance, Var,_class_name) ) , 
assert! (c_var_path(Instance,Var,_class_name) ] 
get_c_vars( Instance, _class_name) ; 

( (classtree(_super,_class_name) , 
not(_class_name=root) )-> 
get_c_vars ( Instance ,_super ) ;  true ) . 
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get_i_vars ( Instance , _class_name )  : - 
i_var_decl(_class_name,Var) , 
not (i_var_val( Instance, Var,_) ) , 
assert! ( i_var_val( Instance, Var ,_UnInstant) ) ) , 
get_i_vars( Instance, _class_name) ; 

(not( i_var_val( Instance, '_Id' ,_) )  -> 

assert ( ( i_var_val( Instance, '_Id' .Instance) ) ) ; 

true) , 

(not( i_var_val( Instance, '_Class' ,_) )  -> 

assert! (i_var_val( Instance, '_Class' ,_class_name) ) ) , 

true ) , 

( (classtree(_super,_class_name) , 

not(_class_name=root) )-> 

get_i_vars ( Instance ,_super ) ;  true ) . 


get_meth_paths ( Instance, _class_name)  :- 
meth_defn(_class_name,Meth,_) , 
not(meth_path( Instance, Meth,_class_name) ) , 
assert) (meth_path( Instance, Meth,_class_name) ) 1 
get_meth_paths( Instance, _class_name) ; 

( (classtree(_super ,_class_name) , 
not(_class_name=root) )-> 
get_meth_paths ( Instance, _super) ;  true) . 
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%      

%  File:   preds 

%        "" 

%         PREDICATES  USED  BY  THE  ABOVE  GRAMMAR 

%  " ~" 

% 

^  ************************ 

match(X,X)  :-   !. 

match(X,Y)  :-   retractl (classtree(_,X) )) ,  !, 

cvar_retract(X) . 
cvar_retract(X)  :-  retract( (c_var_val(X, _,_))) , 

cvar_retract(X) , ! ,ivar_retract(X) . 
cvar_retract(X) . 

ivar_retract(X)  :-  retract( (i_var_decl(X,_) ) ) , 
ivar_retract(X) ,  !, 
methdef_retract(X) . 
ivar_retract(X) . 
methdef_retract(X)  :-  retractl (meth_defn(X,_,_) )) , 

methdef_retract(X) . 
methdef_retract(X)  :-  nl,nl, 

write ('Class  names  at  beginning  and  end'), 
nl, 

write! 'of  class  definition  did  not  match.'), 
nl, 

write! 'Class  definition  was  disregarded'). 
%  ************************ 

construct (_functor ,_arg_list,_body,_meth)  : - 

Head  =..  [_functor ,_Instance ]_arg_list] , 

_meth  =..  [ ( :-) ,Head,_body] . 
%  ************************ 

%  makeatom  takes  a  list  of  atoms  and  concatenates  it 
%  into  one  atom  the  call  is: 
%  makeatom (_list_of_atoms,_one_long_atom) 

makeatom (List, Atom)  :-  expand_list(List,Longlist) , 

name(Atom,Longlist) . 

expand_list( [],[]). 

expand_list( [H|T] ,List)  :-  name(H,H2), 

expand_list(T,T2) , 
append(H2,T2,List) . 
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^  ************************ 

%  compact  takes  a  list  of  lists  and  converts  it  into  a 

%  list  of  atoms 

compact( [H|T] ,L)  :-  compact (H, LI) , compact (T,L2) , 

append ( LI , L2 , L ) . 
compact ( [],[]). 
compact (X, [X] )  . 
%  ************************ 

appendf [ ] ,L,L) . 

append! [X| LI], L2,[X|L3])  :-  append ( LI, L2, L3 ) . 

%  ************************ 

make_arglist( [],[]). 

make_arglist([H| []],[H|  []])  . 

make_arglist([H|T],[H| [' , ' |X]])  :-  make_arglist(T,X) . 

a  ************************ 

writestr( [ ] ) . 

writestrl [H|T] )  :-  write(H) ,writestr (T) . 

%  ************************ 

lookup ( Var_name , Num_var )  : -  symtab ( Var_name , Num_var ) ; 

anon ( Num_var ) ,  assert! ( symtab (Var_name,Num_var) ) ) . 

anon ( Num_var )  : -  anonvar ( X ) , name ( ' _ ' , Underscore ) , 
Z  is  X+l,  retract ( anonvar ( X) ) , 
assert ( anonvar ( Z ) ) , 
append (Underscore, [Z] ,N) , 
name ( Num_var , N ) . 

anon('_0')  :-  name( 0, [X] ), assert! (anonvar (X) )) . 

a  ************************ 
strip_args( [],[]). 
strip_args( [Arg| []], [Arg| [ ]]) . 
strip_args( [Arg, ' , ' |Tail] , [Arg|X] )  :- 

strip_args(Tail,X) . 
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%  "" 

%  File:   tlmt 

%  ~" "" 


top_lev_mes_trans  — >  [ atm( Receiver) ] ,  mesgop(Op), 
mesg(Meth,Arglist) , [spsym( '.')], 
{strip_args( Arglist,Nc_commas) , 
send_mesg( [Meth, Receiver | No_commas ] ,op(Op) 

mesg(Meth,Arglist)  -->  [atm(Meth)],  args(Arglist) . 
% 
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% 

%  File:   support  preds 


%  ROOT  CLASS  DEFINITIONS  (not  fully  implemented) 
classtreel root, root) . 
i_var_decl(root, '_Class'  )  . 
i_var_decl(root, '_Id' ) . 
meth_defn(root,who_am_I, 

(who_am_I(_Instance, Class, Id)  :- 

i_var_val(_Instance, '_Class' , Class) , 
i_var_val(_Instance, '_Id' ,Id) ) ) . 
meth_def n ( root , who_are_you , 

(who_are_you(_Instance, Class, Id)  :- 

inst( Id, Class) ) ) . 
meth_defn( root, broadcast, 

( broadcast (_Instance, [_Class |_Class_list] ,_Message) 
: -  true )  )  . 
meth_def n( root ,erase_self , 

(erase  self (_Instance)  :-  true)). 
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send_mesg( [Meth,Inst j Args] ,op(_) )  :- 

meth_path(Inst,Meth,Def_class) , 

raeth_defn(Def_class,Meth, Method) , 

assertat Method) , 

Method=. . ( [If , Goal, Body] ) , 

Goal=. . ( [ Meth, Inst j Args] ) , 

call (Goal) , 

retract (Method) , !. 

send_mesg( [Meth, Inst j Args] ,op(?<?) )  :- 

cleanup! [Meth, Inst | Args] ,op(_) ) . 

clean_up( [Meth, Inst [Args] ,op(_) )  :- 

meth_path( Inst, Meth, Def_class) , 
meth_def n ( Def _c lass , Meth , Method ) , 
retract (Method) , ! . 

send_mesg( [Meth, Inst [ Args] ,op(?<) )  :- 
inst(Inst) , 

not(meth_path( Inst, Meth, _) ) , 
write(Meth) , 

write!'  is  not  an  appropriate  message'), 
write( '  for  ' )  , 
write (Inst) ,nl, 
cleanup! [Meth, Inst | Args] ,op(_) ) . 

send_mesg( [Meth, Inst j Args] ,op(<?) )  :- 
not (inst! Inst) ) , 
write (Inst) , 

write ( '  is  a  non-existent  object'), 
nl, 
cleanup ( [ Meth, Inst | Args] ,op(_) ) . 


send_mesg ([ Meth , Inst | Args ], op (<<) )  :  - 
inst (Inst) , 

not(raeth_path( Inst, Meth, _) ) , 
write (Meth) , 

write('  is  not  an  appropriate  message'), 
write! '  for  ' ) , 
write (Inst) ,nl, 
cleanup ( [ Meth, Ins t ] Args] ,op(_) ) . 
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send_mesg( [Meth,Inst | Args] ,op(<< ) )  :- 
not (inst( Inst) ) , 
write (Inst) , 

write ( '  is  a  non-existent  object'), 
nl, 
cleanup! [Meth, Inst | Args] ,op(_) ) . 
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/*  ============  instance  var  operations  =========  */ 

set_ivar (Inst, Name, Val)  :- 

/*  if  it  is  a  legal  variable  retract  the  old  */ 
/*  value,  assert  the  new  value  */ 
retract) i_var_val(Inst,Name,_) ) , 
assert (i_var_val( Inst, Name, Val) ) ,  ! . 

set_ivar( Inst, Name, Val)  :- 

/*  write  appropriate  message  to  the  screen  */ 
write (Name) , 

write ('  is  not  a  legal  instance  variable  name'), 
write! '  in  ' ) ,write(Inst) ,nl, ! . 


get_ivar( Inst, Name, Val)  r- 

/*  if  it  exists,  instantiate  Val  */ 
i_var_val( Inst, Name, Val) ,  nonvar (Val) , ! . 

get_ivar(Inst, Name, Val)  :- 

/*  if  the  variable  is  not  already  instantiated,  */ 
/*  write  an  appropriate  message  to  the  screen  */ 
i_var_val( Inst, Name, Val ) ,  var (Val),  !, 
write ( Name ), write ( '  is  not  yet  instantiated  in  ' ) , 
write (Inst) ,nX, t , fail. 

get_i var (Inst, Name, Val)  :- 

/*  write  appropriate  message  to  the  screen  */ 
write (Name) , 

write( '  is  not  an  instance  variable  for  '), 
write( Inst) ,nl, ! , f ail. 
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==  class  var  operations  ==========  */ 


set_cvar( Inst, Name, Val)  :- 

/*  if  it  is  a  legal  variable  retract  the  old  */ 
/*  value,  assert  the  new  value  */ 
c_var_path(Inst, Name, Owner) , 
retract! c_var_val( Owner, Name, _) ) , 
assert (c_var_val( Owner, Name, Val) ) , ! . 

set_cvar( Inst, Name, Val)  :- 

/*  write  appropriate  error  message  to  screen  */ 
write (Name) , 

write  (  '  is  not  a  legal  class  variable  name'), 
write! '  in  ' ) , write (Inst) ,nl, ! . 


get_cvar( Inst, Name, Val)  :- 

/*  if  it  exists,  instantiate  Val  */ 

c_var_path( Inst, Name, Owner) , 

c_var_val( Owner, Name, Val) ,  nonvar(Val) , ! . 

get_cvar (Inst, Name, Val)  :- 

/*  if  variable  is  not  already  instantiated,  */ 

/*  write  appropriate  message  to  the  screen  */ 

c_var_path ( Inst , Name , Owner ) , 

c_var_val (Owner, Name, Val ) ,  var(Val) ,  !, 

write (Name) , 

write!'  is  not  yet  instantiated  in  ' ) , 

write (Inst) , nl, ! , fail. 

get_cvar( Inst, Name, Val)  :- 

/*  variable  is  not  a  class  var  for  this  instance  */ 
write ( Name ), write ( '  is  not  a  class  variable  for  '), 
write (Inst) , nl, ! , fail. 
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Circuit  Example  in  C-Proloq:   Declarations. 


classtree (root, circuit) . 

i_var_decl( circuit, 'Temp' ) . 

i_var_decl( circuit, 'To_meth' ) . 

i_var_decl( circuit, 'To_inst' ) . 

meth_defn( circuit, inl, (inl(_Instance,X) :- 
set_ivar(_Instance, 'Temp' ,X) ) ) . 

meth_def n ( circuit , connect , 

(connect(_Instance,Inst,Meth) :- 

set_ivar(_Instance, 'To_inst' ,Inst) 
set_ivar (_Instance, 'To_meth' ,Meth) 


classtree(circuit,and_c) . 

meth_defn(and_c,in2, (in2(_Instance,X)  : 
get_ivar(_Instance, 'Temp' ,_1) , 
Out  is  (X  A  _D  , 
get_ivar(_Instance, 'To_inst' ,_2) , 
get_ivar(_Instance, 'To_meth' ,_3) , 
send_mesg( t_3,_2,Out] ,op(<<) ) ) ) . 


classtree ( circuit , or_c ) . 

meth_defn(or_c,in2, (in2(_Instance,X)  :■ 
get_ivar(_Instance, 'Temp' ,_1) , 
Out  is  (X  \/  _1), 
get_ivar(_Instance, 'To_inst' ,_2) , 
get_ivar(_Instance, 'To_meth' ,_3) , 
send_mesg( [_3,_2,Out] ,op(<<) ) ) ) . 


classtree ( circuit , out_c ) . 

meth_def n ( out_c , in2 , ( in2 ( _Instance , X ) 

get_ivar(_Instance, '_Id' ,_1), 

write (_1) , 

write! '  is  '  ) , 

write(X),nl)). 
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Circuit  Example  in  C-Prolog:   Object  Instantiation. 


inst ( andl , and_c ) 


Temp' ,_UnInstant) . 
To_meth' ,_UnInstant) 
To_inst' ,_UnInstant) 
_Class' ,and_c) . 
Id' ,andl). 


i_var_val ( andl , 
i_var_val ( andl , 
i_var_val ( andl , 
i_var_val ( andl , 
i_var_val ( andl , 
meth_path ( andl , in2 , and_c ) 
meth_path( andl, inl, circuit) . 
meth_path ( andl , connect , circuit ) 
meth_path( andl, who_am_I, root) . 
meth_path ( andl , who_are_you , root 
meth_path ( andl , broadcast , root ) . 
meth_path ( andl , erase_self , root ) 


Temp' ,_UnInstant) . 
To_meth' ,_UnInstant) . 
To_inst' ,_UnInstant) . 
_Class' ,and_c) . 
Id' ,and2). 


inst  ( and2 ,  and_c ) 
i_var_val ( and2 , 
i_var_val ( and2 , 
i_var_val ( and2 , 
i_var_val ( and2 , 
i_var_val ( and2 , 
meth_path ( and2 , in2 , and_c ) 
meth_path(and2, inl, circuit) . 
meth_path(and2, connect, circuit) . 
meth_path( and2 ,who_am_I , root ) . 
meth_path ( and2 , who_are_you , root ) . 
meth_path ( and2 , broadcast , root ) . 
meth_path ( and2 , erase_self , root ) . 

inst(orl,or_c) .      -* 
i_var_val(orl, 'Temp' ,_UnInstant) . 
i_var_val(orl, 'To_meth' ,_UnInstant) . 
i_var_val(orl, 'To_inst' ,_UnInstant) . 
i_var_val(orl, '_Class' ,or_c) . 
i_var_val ( or 1 , ' _Id ' , orl ) . 
meth_path(orl,in2,or_c) . 
meth_j>ath(  orl,  inl,  circuit) . 
meth_path( orl, connect, circuit) . 
meth_path (orl, who_am_I , r oot ) . 
meth_path(orl,who_are_you,root) . 
meth_path( orl, broadcast, root) . 
meth_path(orl,erase_self ,root) . 
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Circuit  Example  in  C-Proloq;   Object  Instantiation. 
(Continued) 


inst ( outl , out_c ) . 

i_var_val(outl, 'Temp' ,_UnInstant) . 
i_var_val ( outl , 'To_meth' ,_UnInstant) . 
i_var_val ( outl , ' To_inst ' ,_UnInstant ) . 
i_var_val ( outl , ' _Class ' , out_c ) . 
i_var_val ( outl , ' _Id ' , outl ) . 
meth_path(outl,in2,out_c) . 
meth_path( outl, inl, circuit) . 

meth_path ( outl , connect , circuit ) . 
meth_path ( outl , who_am_I , root ) . 
meth_path ( outl , who_are_you , root ) . 
meth_path ( outl , broadcast , root ) . 
meth_path ( outl , er ase_se If , root ) . 
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Circuit  Example  in  C-Proloq:   Message  Sending. 


?-  send_mesg( [ connect, andl, or l,inl] ,op(<<) ) 
?-  send_mesg( [ connect, and2, or l,in2] ,op(<<) ) 
?-  send_mesg( [connect, or 1, out l,in2] , op(<<) ) 


d_mesg( [inl,andl,l] ,op(<<) ) . 
d_mesg( [in2,andl,0] ,op( <<) ) . 


?-  send_ 

?-  send_mesg(  l  ju** ,  anm  ,uj,  upi  ^v  j 

?-  send_mesg( [inl,and2,l] ,op(<<) 

?-  send_mesg( [in2,and2,l] ,op(<<) 
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(1) 

1 

(2) 

2 

(2) 

2 

(3) 

2 

(3) 

2 

Call:  send_mesg( [ connect , andl , orl , inl ] ,op(<<) ) 
Call:  meth_path( andl, connect, _661 22) 
Exit :  meth_path ( andl , connect , circuit ) 
Call:  meth_def n( circuit, connect,_6612 3) 
Exit:  meth_defn( circuit, connect, 
( connect (_48,_49,_50) :- 

set_ivar ( _4  8 , To_inst , _4  9 ) , 
set_ivar(_48,To_meth,_50) ) ) 
(4)  2  Call:  assertaf (connect(_48,_49,_50) : - 
set_ivar(_48,To_inst,_49) , 
set_ivar(_48,To_meth,_50) ) ) 

(4)  2  Exit:  asserta( (connect(_48,_49,_50)  :- 

set_ivar ( _4  8 , To_inst , _4  9 ) , 
set_ivar(_48,To_meth,_50) ) ) 

(5)  2  Call:  (connect(_48,_49,_50) : - 

set_ivar ( _4  8 , To_inst , _4  9 ) , 
set_ivar(_48,To_meth,_50)  )  =  . .  [_43,_44,_45] 

(5)  2  Exit:  (connect(_48,_49,_50) :- 

set_ivar(_48,To_inst,_49) , 
set_ivar(_48,To_meth,_50) )=. . 
[ :-,connect(_48,_49,_50) , 
( set_ivar ( _4  8 , To_inst , _4  9 ) , 
set_ivar(_48,To_meth,_50)  )  ] 

(6)  2  Call:  connect(_48 ,_49,_50)=. . 

[  connect , andl , or 1 , inl ] 

(6)  2  Exit:  connect (andl, orl, inl )=. . 

[ connect , andl , or 1 , inl ] 

(7)  2  Call:  connect (andl, orl, inl) 

(8)  3  Call:  set_ivar (andl, To_inst, orl) 

(9)  4  Call:  retract! i_var_val( andl, To_inst,_73 ) ) 

(9)  4  Exit:  retract (i_var_val( andl, To_inst,_73 ) ) 

(10)  4  Call:  assertt i_var_val( andl, To_inst, orl ) ) 

(10)  4  Exit:  assert(i_var_val(andl,To_inst,orl) ) 
(8)  3  Exit:  set_ivar( andl, To_inst, orl) 

(11)  3  Call:  set_ivar( andl, Tojraeth, inl) 

(12)  4  Call:  retract! i_var_val(andl,To_meth,_93 ) ) 

(12)  4  Exit:  retract (i_var_val( andl, To_meth,_93 ) ) 

(13)  4  Call:  assert( i_var_val(andl,To_meth,inl) ) 
(13)  4  Exit:  assert (i_var_val( andl, To_meth, inl ) ) 
(11)  3  Exit:  set_ivar( andl, To_meth, inl) 

(7)  2  Exit:  connect (andl, orl, inl) 
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(14)  2  Call:  retract( (connect) andl, or l,inl) :- 

set_i var ( andl, To_inst, orl) , 

set_i var ( andl , To_meth , inl ) ) ) 
(14)  2  Exit:  retract! (connect (andl, or l,inl) : - 

set_ivar(  andl,  To_inst,  orl) , 

set_i var ( andl , To_meth , inl ) ) ) 
(1)  1  Exit:  send_mesg( [connect, andl, orl, inl] ,op(<< ) ; 


Assume  that  all  assertions  in  the  main  section 
have  been  completed  and  tracing  begins  with  the  first 
send_mesg  query  in  Appendix  G.  Trace  level  numbers  are 
given  in  parentheses. 

The  method  connect  is  invoked  in  object  andl 
(1).  The  method  is  found  to  exist  (2).  The 
method  code  is  instantiated  ( 3 )  from  the  class 
circuit,  asserted  (4),  broken  into  its  component 
goal  (connect)  and  code  parts  (5).  Before  level 
(6),  Goal  is  connect (_44, 45, _46),  Meth  is  connect, 
Inst  is  andl,  and  Args  is  [inl, orl].  Then  the 
variables  in  Goal  are  instantiated  so  that  Goal  is 
connect (andl, orl, inl)  (6),  and  send_mesg  calls 
(connect (andl, orl, inl))  (7).  The  subgoals  of 
connect  are  invoked  (8-13).  Finally,  the  method  code 
is   retracted  (14)  and  the  send  mesg  is  complete  (1). 
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(3629)  2  Call:  oop( [atm(class) , atm ( and_c ) ,atm(has) ,a 
tm(super_class) , atm (circuit) ,spsym( ; ) ,atm(raethods) ,atm( 
in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is 
)  ,spsym(  (  )  ,vbl(X)  ,spsym(/\)  ,spsym(  : )  ,vbl(Temp)  ,spsym(  ) ) 
,spsym( , ) , spsym( ( ) , spsym( : ) , vbl(To_inst) ,spsym(<<) ,spsy 
m( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,s 
psym( . ) , atm(end) ,atm(and_c) , spsym( . ) ] ,_157) 

(3630)  3  Call:  oop_stmt( [atm(class) ,atm(and_c) ,atm(h 
as) ,atm(super_class) ,atm(circuit) ,spsym( ; ) , atm (methods) 
,atm(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,a 
tm(is) ,spsym( ( ) ,vbl(X) ,spsym( A) ,spsym( : ) ,vbl(Temp) ,sps 
ym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) , vbl(To_inst) , spsym(<<) 
,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym 
( ) ) ,spsym( . ) , atm (end) ,atm(and_c) ,spsym( . ) ] ,_515810) 


(3633)  4  Call:  class_def n( [atm(class) ,atm(and_c) ,atm 
(has) , atm (super_c lass) , atm (circuit) ,spsym( ; ) , atm (method 
s) ,atm(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) 
, atm (is) ,spsym( ( ) ,vbl(X) ,spsym( /\ ) ,spsym( : ) ,vbl(Temp) ,s 
psym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym( < 
<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,sps 
ym( ) ) ,spsym( . ) , atm (end) ,atm(and_c) ,spsym( . ) ] ,_515810) 


(3634)  5  Call:  c( [atm( class ) ,atm(and_c) ,atm(has) ,atm 
( super_class ) ,  atm  (circuit)  ,spsyni( ; ) ,  atm  (methods) ,  atm  (in 
2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) , atm (is) , 
spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,s 
psym(  , )  ,spsym(  (  )  ,spsym(  :  )  ,vbl(To_inst)  ,sps3^m(  <<)  ,spsym( 
: ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,sps 
ym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,atm(class) ,_515850) 

(3634)  5  Exit:  c( [atm(class) ,atm( and_c) ,atm(has) ,atm 
(super_class) , atm (circuit) ,spsym( ; ) , atm (methods) , atm (in 
2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( : -) ,vbl(Out) , atm (is) , 
spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,s 
psym( , ) ,spsym( ( ) ,spsym( : ) , vbl(To_inst) ,spsym(<<) ,spsym( 
: ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,sps 
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(3635)  5  Call:  classname(_515851, [atm(and_c) ,atm(has 
) ,atm(  superclass) ,atm(circuit) ,spsym( ; ) ,atm( methods) ,a 
tm(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm 
(is) ,spsym( ( ),vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym 
( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsyra(<<) ,s 
psym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_515852) 


(3638)  6  Call:  classtree(  5651,and_c) 
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(3638)  6  Fail:  classtree(_5651,and_c) 

(3635)  5  Exit:  classname(and_c, [atm( and_c) ,atm(has ) , 
atm(super_class) ,atm(circuit) ,spsym( ; ) ,atm( methods) ,atm 
(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(i 
s) ,spsyra( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) 
) ,spsym( , ) ,spsym( ( ) , spsymi : ) ,vbl(To_inst) ,spsym(<<) ,sps 
yml : )  ,vbl(To_meth)  , spsymi  (  )  ,vbl(Out)  ,spsym(  )  )  ,spsym(  )  ), 
spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , [atm(has) ,atm(su 
per_class) ,atm( circuit) ,spsym( ; ) ,atm(methods) ,atm(in2) , 
spsym(  (  )  ,vbl(X)  ,spsyni(  )  )  ,spsym(  :-)  ,vbl(Out)  ,atm(is)  ,sps 
ym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsy 
m( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) , spsymi : ) , 
vbl(To_meth)  , spsymi  ( )  ,vbl(Out)  ,spsym( ) )  ,spsym(  )  )  ,spsym( 


(3639)  5  Call:  c( [atm(has) ,atm(super_class) ,atm(circ 
uit) ,spsym( ; ) ,atm( methods) ,atm(in2) ,spsym( ( ) ,vbl(X) ,sps 
ym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) , spsymi ( ) ,vbl(X) ,spsym( 
/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym 
( : ) ,vbl(To_inst) ,spsym(<<) , spsymi : ) ,vbl(To_meth) ,  spsymi 
(  )  ,vbl(Out)  ,spsym(  ) )  ,spsym(  ) )  , spsymi  . )  ,atm(end)  ,atm(and 
_c),spsym( . ) ],atm(has) ,_515853) 


(3639)  5  Exit:  c( [atm(has) ,atm( super_class) ,atm(circ 
uit) ,spsym( ; ) ,atm( methods) ,atm(in2) ,spsym( ( ) ,vbl(X) ,sps 
ym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym( 
/\)  ,spsym(  : )  ,vbl(Temp)  ,spsym(  ) )  ,spsym( ,  )  ,spsym(  ( )  ,spsym 
( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( 
( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and 
_c) ,spsym( . ) ] ,atm(has) , [atm(super_class) ,atm(circuit) ,s 
psym( ; ) , atm ( methods ) ,atm(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) , 
spsymi :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,sp 
sym( : ) ,vbl(Temp) , spsymi ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vb 
l(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl 
(Out) ,spsym( ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,atm(and_c) ,sp 
sym( . )  ] ) 


(3640)  5  Call:  properties ( and_c, [atm( super_class) , at 
m(circuit) ,spsym( ; ) ,atm(methods) ,atm( in2) , spsymi ( ) ,vbl( 
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X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) , 
spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,spsym( : ) , vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , 
spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c) ,spsym( . ) ],_515854) 

(3641)  6  Call:  supersf and_c, [atm( super_class) ,atm(ci 
rcuit) ,spsym( ; ) ,atm( methods) ,atm(in2) ,spsym( ( ) ,vbl(X) ,s 
psym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsy 
m(/\)  ,spsym( : )  ,vbl(Temp)  ,spsym(  ) )  ,spsym(  , )  ,spsym(  (  )  ,sps 
ym( : )  ,vbl(To_inst)  ,spsym(<<)  ,spsym( :  )  ,vbl(To_meth)  ,spsy 
m(( ),vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(a 
nd_c) ,spsym( . )],_515937) 

(3642)  7  Call:  c(  [atm( superclass)  ,atin( circuit)  ,spsy 
m( ; ) ,atm(methods) ,atm(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,sps 
ym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym 
( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(T 
o_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Ou 
t) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym 
(  .  )  ],atm(  superclass)  ,_515951) 

(3642)  7  Exit:  c( [atm( super_class ) ,atm(circuit) ,spsy 
m( ; ) ,atm(methods) ,atm(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,sps 
ym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym 
( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(T 
o_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Ou 
t)  ,spsym(  ) )  ,spsym(  ) )  ,spsym( . )  ,atm(end)  ,atm(and_c)  ,spsyn> 
( . ) ] ,atra(super_class) , [atm(circuit) ,spsym( ; ) ,atm(method 
s) ,atra(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) 
,atm(is) ,spsym( ( ) ,vbl(X) ,spsyra(/\) ,spsym( : ) ,vbl(Temp) ,s 
psym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(< 
<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,sps 
ym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ) 

(3643)  7  Call:  parent ( and_c , [atm( circuit) ,spsym( ; ) ,a 
tm( methods) ,atm(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) 
,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vb 
l(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst 
) ,spsym( <<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,sps 
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ym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_ 
515952) 

(3644)  8  Call:  c( [atm( circuit) ,spsym( ; ) ,atm( methods) 
,atm(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,a 
tm(is) ,spsym( ( ) ,vbl(X) ,  spsym(A) , spsym( : ) ,vbl(Temp) ,sps 
ym(  )  )  ,spsym(  , )  ,spsym(  (  )  , spsym(  :  )  , vbl(To_inst)  , spsym(<<) 
,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym 
( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,atm(_5667) ,_ 
515952) 


vbl ( Out 
,spsym( 


(3643)  7  Exit:  parent) and_c, [atm( circuit) , spsym( ;) ,a 
tm( methods) ,atm( in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( : - ) 
,  vbl  (Out)  ,atm(is)  ,spsym(  ( ) ,vbl(X)  ,spsym(  A)  ,spsym(  : )  ,vb 
l(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst 
) , spsym( <<) , spsym( : ) , vbl(To_meth) ,spsym( ( ) , vbl (Out) ,  sps 
ym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , [ 
spsymi  ;  )  ,atm( methods)  ,atm(in2)  , spsym(  (  )  ,vbl(X)  , spsym(  )  ) 
,spsym( :-) , vbl (Out) ,atm( is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,s 
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spsym( : ) ,vbl 
spsymi . ) , 


(3646)  7  Exit:  c(  [  spsymi  ;)  ,atm( methods )  ,atm(  in2)  ,sps 
ym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) , spsymi 
( ) ,vbl(X) ,spsym(A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , 
) , spsymi ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) , spsymi : ) ,vbl 
(To_meth) , spsymi ( ) ,vbl(Out) , spsymi ) ) , spsymi ) ) ,spsym( . ) , 
atm(end) ,atm(and_c) , spsymi . ) ] , spsymi ; ) , [atml methods) ,at 
m(in2) , spsymi ( ) ,vbl(X) , spsymi ) ) , spsymi :-) ,vbl(Out) ,atm( 
is) , spsymi ( ) ,vbl(X) ,spsym(/\) , spsymi : ) ,vbl(Temp) , spsymi 
) ) , spsymi , ) , spsymi ( ) , spsymi : ) ,vbl(To_inst) ,spsym(<<) ,sp 
syml : ) ,vbl(To_meth) , spsymi ( ) ,vbl(Out) , spsymi ) ) , spsymi ) ) 
, spsymi . ) ,atm(end) ,atm(and_c) , spsymi . )  ] ) 


(3641)  6  Exit:  supers ( and_c, [atm( super_class) ,atm(ci 
rcuit) , spsym( ; ) ,atm(methods) ,atm(in2) , spsymi ( ) ,vbl(X) ,s 
psym( ) ) , spsymi :-) ,vbl(Out) ,atm(is) , spsymi ( ) ,vbl(X) ,spsy 
m(/\) , spsymi : ) ,vbl(Temp) , spsymi ) ) , spsymi , ) , spsymi ( ) ,sps 
ym( : ) ,vbl(To_inst) ,spsym(<<) , spsymi : ) ,vbl(To_meth) ,spsy 
ml (),vbl(Out) , spsymi ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,atm(a 
nd_c) , spsymi . ) ] , [atm(methods) ,atm(in2) , spsymi I ) ,vbl(X) , 
spsymi ) ) , spsymi :-) ,vbl(Out) ,atm(is) , spsymi ( ) ,vbl(X) ,sps 
ym(/\)  , spsymi  : )  ,vbl(Temp) , spsymi )  ) , spsymi  , ) , spsymi  ( ),sp 
syml : ) ,vbl(To_inst) ,spsym(<<) , spsymi : ) ,vbl(To_meth) ,sps 
ym( ( ),vbl(Out) , spsymi ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,atm( 
and_c ) , spsym ( . ) ] ) 


(3647)  6  Call:  class_vars(and_c, [atm(methods) ,atm( in 
2) , spsymi ( ) ,vbl(X) , spsymi ) ) , spsymi :-) ,vbl(Out) ,atm(is) , 
spsymi ( ) ,vbl(X) ,spsym(/\) , spsymi : ) ,vbl(Temp) , spsymi ) ) ,s 
psyml , ) , spsymi I ) , spsymi : ) ,vbl(To_inst) , spsymi <<) , spsymi 
: ) ,vbl(To_meth) , spsymi ( ) ,vbl(Out) , spsymi ) ) , spsymi ) ) ,sps 
ymi . ) ,atm(end) ,atm(and_c) , spsymi . ) ] ,_515938) 


(3648)  7  Call:  c( [atm( methods) ,atm( in2 ) ,spsym( () ,vbl 
(X) , spsymi ) ) , spsymi :-) ,vbl(Out) ,atm( is) ,spsym( ( ) ,vbl(X) 
,spsym(/\) , spsymi : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) , spsymi  ( 
)  , spsymi  :  )  , vbl(To_inst)  , spsym (<<)  , spsymi  :  )  ,vbl(To_meth) 
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,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) , 
atm(and_c) ,spsym( . ) ] ,atm(class_var ) ,_5693) 

(3648)  7  Fail:  c( [atm(methods) ,atm( in2) ,spsym( ( ) ,vbl 
(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) 
,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( 
) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) 
,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) , 
atm(and_c) ,spsym( . ) ] ,atra(class_var) ,_5693) 

(3649)  7  Call:  [ atm( methods ) ,atm( in2) ,spsym( () ,vbl(X 
) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,s 
psym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) , 
spsym( : ) ,vbl(To_inst) ,spsym( << ) ,spsym( : ) ,vbl(To_meth) ,s 
psym(  (  )  ,vbl(Out)  ,spsym(  ) )  ,spsym(  ) )  ,spsym(  . )  ,atm(end)  ,at 
m(and_c) ,spsym( . ) ]=_5692 


(3650)  7  Call:  true 
(3650)  7  Exit:  true 


(3647)  6  Exit:  class_vars(and_c, [ a tm( methods) ,atm( in 
2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) , 
spsym(  (  )  ,vbl(X)  ,spsym(  /\)  ,spsym(  : )  ,vbl(Temp)  ,spsyni( ) )  ,s 
psym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym( <<) ,spsym( 
: ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,sps 
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ym( . ) ,atm(end) ,atm(and_c) , spsym( . ) ] , [atm( methods) ,atm(i 
n2) , spsym( ( ) ,vbl(X) ,spsym( ) ) , spsym( :-) ,vbl(Out) ,atm(is) 
,spsym(  (  )  ,vbl(X)  ,spsym(/\)  ,spsym(  :  )  ,vbl(Temp)  ,spsym( )  ) , 
spsym(  ,  )  ,spsyin(  (  )  ,spsym(  :  )  ,  vbl(To_inst)  , spsymi  <<)  ,spsym 
( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) , spsymi ) ) ,sp 
sym( . ) ,atm(end) ,atm(and_c) ,spsym( . )  ] ) 


(3652)  7  Call:  c( [atm( methods ) ,atm(in2 ) ,spsym(  () ,vbl 
(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) 
,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( 
) ,spsym( : ) ,vbl(To_inst) , spsymi <<) ,spsym( : ) ,vbl(To_meth) 
,spsym( ( ) ,vbl(Out) ,spsym( ) ) , spsymi ) ) , spsymi . ) ,atm(end) , 
atm(and_c) ,spsym( . ) ] , atm(instance_var) ,_5707) 

(3652)  7  Fail:  c( [atm(methods) ,atm( in2) ,spsym( ( ) ,vbl 
(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) 
,spsym(/\)  ,spsym(  : )  ,vbl(Temp)  ,spsym(  ) )  ,spsym( , )  ,spsym(  ( 
) ,spsym( : ) , vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) 
,spsym( ( ) ,vbl(Out) ,spsym( ) ) , spsymi ) ) , spsymi . ) ,atm(end) , 
atm(and_c) ,spsym( . ) ] ,atm(instance_var) ,_5707) 

(3653)  7  Call:  [ atm( methods )  ,atm( in2)  ,spsym(  ()  ,vbl(X 
) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,s 
psym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) , 
spsym( : ) , vbl ( To_inst ) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,s 
psym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,at 
m(and_c) ,spsym( . ) ]=_5706 

(3653)  7  Exit:  [ atm( methods) ,atm( in2 ) ,spsym( () ,vbl(X 
) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,s 
psym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) , 
spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) , vbl(To_meth) ,s 
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psym(  (  )  ,vbl(Out)  ,spsym(  ) )  ,spsym(  )  )  ,spsyin(  . )  ,atm(end)  ,at 
m(and_c) ,spsym( . ) ]=[atm( methods) , atm(in2) , spsym( ( ) ,vbl( 
X)  , spsymi  )  )  , spsymi  :-)  ,vbl(Out)  ,atm(is)  , spsym(  (  )  ,vbl(X)  , 
spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) , spsymi , ) ,spsym( ( ) 
,spsym( : ) ,vbl(To_inst) , spsymi <<) , spsym( : ) ,vbl(To_meth) , 
spsym( ( ) ,vbl(Out) , spsymi ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,a 
tm( and_c ) , spsym( . ) ] 

(3654)  7  Call:  true 

(3654)  7  Exit:  true 


(3651)  6  Exit:  inst_vars(and_c, [atm( methods ) ,atm( in2 
) , spsymi ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,s 
psym( ( ) ,vbl(X) , spsymi  A) , spsymi : ) ,vbl(Temp) ,spsym( ) ) ,sp 
syml , ) ,spsym( ( ) , spsymi : ) ,vbl(To_inst) , spsymi <<) ,spsym( : 
) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) , spsymi ) ) , spsymi ) ) ,spsy 
m( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , [atm( methods) ,atm(in 
2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) , 
spsym( ( ) ,vbl(X) ,spsym( /\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,s 
psym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym( <<) ,spsym( 
: ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,sps 
ym( . ) ,atm(end) ,atm( and_c) , spsym( . ) ] ) 


(3655)  6  Call:  methods ( and_c, [atm( methods ) ,atm( in2 ) , 
spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,sps 
ym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsy 
m(  , )  ,spsym(  (  )  ,spsym(  :  )  ,vbl(To_inst)  ,spsym(<<)  ,spsym(  :  )  , 
vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 

(3656)  7  Call:  c( tatm( methods) ,atm( in2) ,spsym( () ,vbl 
(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) 
,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( 
)  ,spsym(  : ) ,  vbl(To_inst)  ,spsym(<<)  ,spsym( : ) , vbl ( To_meth ) 
,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) , 
atm(and_c) ,spsym( . ) ] ,atm( methods) ,_516100) 

(3656)  7  Exit:  c(  [atm(  methods)  ,atm(  in2)  ,spsym(  ()  ,vbl 
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(X)  ,spsym( ) )  ,spsym( 
,spsym(/\) ,spsym( : ' 
) ,spsym( : ) ,vbl(To_ 

,SpSyiTl(  (  )  ,Vbl(OUt)  ,=>ys>xiuy  /  j  rayajm\  I  I  ,o£/Q,ym\  .  /  ,auuvcu«i  , 

atm(and_c) ,spsym( . ) ] ,atm( methods) , [atm(in2) ,spsym( ( ) ,vb 
1(X) , spsymt ) ) , spsymt :-) ,vbl(Out) ,atm(is) ,spsym( ( ) , vbl(X 
)  , spsymt  A)  , spsyml  : )  ,vbl(Temp)  , spsymt )  )  , spsymt  , )  ,spsyin( 
( ) ,  spsymt : ) ,vbl(To_inst) , spsymt <<) ,spsym( : ) ,vbl(To_meth 
) , spsymt ( ) ,vbl(Out) ,spsym( ) ) , spsyml ) ) ,spsym( . ) ,atm(end) 
,atm(and_c) ,spsym( . )  ] ) 


(3658)  8  Call:  method_defn( and_c, [atm( in2) ,spsym(  ( ) , 
vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl 
(X)  ,spsym(/\)  ,spsym( : )  ,vbl(Temp)  ,spsym( ) )  ,spsym(  , )  ,spsy 
m( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_me 
th) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(en 
d) ,atm(and_c) ,spsym( . ) ] ,_516120) 


(3659)  9  Call:  told 

(3659)  9  Exit:  told 

(3660)  9  Call:  tell ( .method) 
(3660)  9  Exit:  tell( .method) 


meth_def n( and_c , 

(3664)  9  Call:  meth_head( [atm( in2) ,s 
psym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsy 
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(3671)  11  Call:  c( [spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( : - 
) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,v 
bl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_ins 
t) , spsymi <<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,sp 
sym(  )  )  ,spsym(  )  )  ,spsym(  .  )  ,atm(end)  , atm ( and_c )  ,spsym(  .  )  ] , 
spsym((),_516237) 


118 


APPENDIX  I   TRACE  OF  CLASS  DEFINITION:   "class  and  c" 


(3672)  11  Call:  term(_516238 , [ vbl(X) ,spsym( ) ) ,spsym( 
:-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym( /\) , spsym( : ) 
,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_i 
nst) ,spsym( <<) , spsyml : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) , 
spsyml  ) )  , spsyml  ) )  ,spsym( . )  ,atm(end)  ,atm(and_c)  ,spsym(  . ) 
],_516239) 

(3673)  12  Call:  pred(_5728, [vbl(X) ,spsym( ) ) ,spsym( :- 
) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) , spsyml  A) ,spsym( : ) ,v 
bl(Temp) , spsyml ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(Tc_ins 
t) ,spsym( << ) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,sp 
sym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , 
_5730) 

(3674)  13  Call:  c( [vbl(X) ,spsym( ) ) ,spsym( : - ) ,vbl(Out 
) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) , 
spsym( ) )  ,spsym( , )  ,spsym(  (  )  ,spsym( : )  ,vbl(To_inst)  ,spsym( 
<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,sp 
sym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,atm(_5742 
),_516277) 

(3674)  13  Fail:  c( [vbl(X) ,spsym( ) ) ,spsym( : - ) , vbl(Out 
) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) , 
spsym( ) )  ,spsym(  , )  ,spsym(  (  )  ,spsym(  : )  ,vbl(To_inst)  ,spsym( 
<<)  ,spsytn(  :  )  , vbl(To_meth)  ,spsym(  (  )  ,vbl(Out)  ,spsym(  )  )  ,sp 
sym(  )  )  ,spsym(  .  )  ,atm(end)  ,atm(and_c)  ,spsym(  .  )  ]  ,atm(_5742 
),_516277) 
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(3673)  12  Back  to:  pred(_5728, [vbl(X) ,spsym( ) ) ,spsym 
( :-) ,vbl(Out) ,atm(is) , spsym( ( ) ,vbl(X) ,spsym( /\) ,spsym( : 
)  ,vbl(Temp)  ,spsym( ) )  ,spsym( , )  ,spsym(  (  )  ,spsym(  : )  ,vbl(To_ 
inst) , spsymi <<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) 
,spsym( ) ) , spsymi ) ) , spsymi . ) ,atm(end) , atm(and_c) , spsym( . 
)],_5730) 


(3673)  12  Fail:  pred(_5728, [ vbl(X) ,spsym( ) ) ,spsym( : - 
) ,vbl(Out) ,atm(is) , spsym( ( ) ,vbl(X) ,spsym(/\) , spsymt : ) ,v 
bl(Temp) ,spsym( ) ) , spsymt , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_ins 
t) , spsymi <<) , spsym( : ) ,vbl(To_meth) , spsymi ( ) ,vbl(Out) ,sp 
sym(  ) )  , spsymi  ) )  , spsymi . )  ,atm(end)  ,atm(and_c)  ,spsym(  . )  ] , 
5730) 


(3675)  12  Call:  const(_5728, [ vbl(X) ,spsym( ) ) ,spsym( : 
-) ,vbl(Out) ,atm(is) , spsymt ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) , 
vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(Tc_in 
st) ,spsym( << ) ,spsyra( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,s 
psym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] 
,_5730) 

(3676)  13  Call:  c( [vbl(X) .spsymf ) ) ,spsym( :-) , vbKOut 
) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ),vbl(Temp) , 
spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) , vbl(To_inst) ,spsym( 
<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,sp 
sym( ) ) ,spsym( . ),atm(end) ,atm(and  c) ,spsym( . ) ] ,num(  5745 
),  5730) 


(3676)  13  Fail:  c( [vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out 
)  ,atra(is)  ,spsyra(  (  )  ,vbl(X)  ,spsym(/\)  ,spsym(  :  )  ,vbl(Temp) , 
spsym(  ) )  ,spsym( , )  ,spsym(  (  )  ,spsym( :  )  ,vbl(To_inst)  ,spsym( 
<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,sp 
sym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,num(  5745 
),  5730) 


(3677)  13  Call:  c( [vbl(X) ,spsym( ) ) ,spsyra( : -) ,vbl(Out 
) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) , 
spsym( ) )  ,spsym(  , )  ,spsym(  ( )  ,spsym(  : )  ,vbl(To_inst)  ,spsym( 
<<)  ,spsym( : )  ,vbl(To_meth)  ,spsym(  (  )  ,vbl(Out)  ,spsym(  ) )  ,sp 
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sym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) , spsymi . ) ],atm(_5745 
),_5730) 

(3677)  13  Fail:  c( [vbl(X) ,spsym( ) ) ,spsym( : - ) ,vbl(Out 
),atm(is),spsym(( ) ,vbl(X) ,spsym( /\ ) ,spsym( : ) ,vbl(Temp), 
spsymi )  )  ,spsym( , )  ,spsym(  (  )  , spsymi  :  )  ,vbl(To_inst)  ,spsym( 
<<) , spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) , spsymi ) ) ,sp 
sym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,atm(_5745 
),  5730) 


(3678)  13  Call:  c( [vbl(X) ,spsym( ) ) ,spsym( : - ) ,vbl(Out 
) ,atm(is) , spsymi ( ) ,vbl(X) ,spsym(/\) , spsymi : ) ,vbl(Temp) , 
spsymi ) ) , spsymi , ) , spsymi ( ) , spsymi : ) , vbl ( To_inst ) , spsymi 
<<) , spsymi : ) , vbl(To_meth) , spsymi I ) ,vbl(Out) , spsymi ) ) ,sp 
symi ) ) , spsymi . ) ,atm(end) , atm(and_c) , spsymi . ) ] , spsymi") , 
_516286) 

(3678)  13  Fail:  c( [vbl(X) ,spsym( ) ) ,spsym( : -) , vbl (Out 
) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) , 
spsymi ) ) , spsymi , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) , spsymi 
<<) , spsymi : ) ,vbl(To_meth) , spsymi I ) ,vbl(Out) , spsymi ) ) ,sp 
symi ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ],spsym(") , 
516286) 


yml  :  )  ,vbl(To_metnj  , spsymi  (  )  ,vr>nuu 
spsym  i . ) , atm ( end ) , atm ( and_c ) , spsym 


spsy 

spsymi 

To 

Out 

i( 


(3679)  13  Call:  c( [vbl(X) ,spsym( ) ) ,spsym( : - ) , vbl (Out 
) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) , 
spsym( ) ) ,spsym( , ) , spsymi ( ) , spsymi : ) ,vbl(To_inst) ,spsym( 
<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,sp 
symi ) ) , spsymi . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym(_57 
45),  516286) 


(3679)  13  Fail:  c( [ vbl(X) ,spsym( ) ) ,spsym( :-) , vbl (Out 
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) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) , 
spsym( ) )  ,spsym(  , )  ,spsym(  ( )  ,spsym(  : )  ,vbl(To_inst)  , spsymi 
<<) ,spsym( : ) , vbl ( To_meth ) , spsymi ( ) ,vbl(Out) , spsymi ) ) ,sp 
sym( ) ) ,  spsymi . ) ,atm(end) ,atm(and_c) , spsymi . ) ] ,spsym(_57 
45),_516286) 


(3680)  12  Call:  variable(_5728, [vbl(X) , spsymi )) ,spsy 
m( :-) ,vbl(Out) ,atm(is) , spsymi ( ) ,vbl(X) ,spsym(A) ,spsym( 
: ) ,vbl(Temp) , spsymi ) ) ,spsym( , ) , spsymi ( ) , spsymi : ) ,vbl(To 
_inst) , spsymi <<) , spsymi : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out 
) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( 


(3681)  13  Call:  c( [ vbl(X) ,spsym( ) ) ,spsym( : -) , vbl (Out 
)  ,atm(is)  ,spsym(  ( )  ,vbl(X)  ,spsym(/\)  ,spsym(  : )  ,vbl(Temp) , 
spsymi ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym( 
<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) , spsymi ) ) ,sp 
sym( ) ) , spsymi . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,vbl(_5749 
),_5730) 


122 


APPENDIX  I   TRACE  OF  CLASS  DEFINITION:   "class  and  c" 


ym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsy 
m(  (  )  ,vbl(Out)  , spsymf )  )  , spsymf )  )  , spsymf .  )  ,atm(end)  ,atm(a 
nd_c) ,spsym( . ) ] ) 


(3680)  12  Exit:  variable! [X] , [vbl(X) ,spsym( )) ,spsym( 
:-) ,vbl(Out) ,atm(is) , spsymf ( ) ,vbl(X) ,  spsymf  A) ,spsym( : ) 
,vbl(Temp) ,spsym( ) ) , spsymf , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_i 
nst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , spsymf ( ) ,vbl(Out) , 
spsym( ) ) , spsymf ) ) ,sgsym( . ) ,atm(end) ,atm(and_c) , spsymf . ) 
] , [spsymf ) ) , spsymf :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) , 
spsymf  A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) , spsymf , ) ,spsym( ( ) 
,spsym( : ) , vbl ( Tc_inst ) ,spsym(<<) , spsymf : ) ,vbl(Tc_meth) , 
spsym( ( ) , vbl (Out) ,spsym( ) ) ,spsym( ) ),spsym( . ) ,atm(end) ,a 
tm(and_c) ,spsym( . ) ] Y 


(3672)  11  Exit:  termf [X] , [vbl(X) ,spsym( ) ) ,spsym( : -) , 
vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl 
(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(Tc_inst) 
,spsym(<<) , spsymf : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsy 
m( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , [s 
psym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsy 
m(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,sps 
ym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsy 
m( ( ) ,vbl(Out) ,spsym( ) ),spsym( ) ) ,spsym( . ) ,atm(end) ,atm(a 
nd_c) ,spsyra( . ) ] ) 


(3682)  11  Call:  rest_args(_516240 , [spsym( ) ) ,spsym( : - 
) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,v 
bl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ),spsym( : ) ,vbl(To_ins 
t) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,sp 
sym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c),spsym( . ) ] , 
_516241) 

(3683)  12  Call:  c( [spsymf ) ) ,spsym( : - ) ,vbl(Out) ,atm( i 
s) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) , vbl ( Temp ), spsymf ) 
)  , spsymf  ,  )  , spsymf  (  )  , spsymf  :  ) ,  vbl(To_inst) , spsymf  <<)  ,sps 
ym( : ) ,vbl(To_meth) ,spsym( ( ) , vbl ( Out ), spsymf ) ) ,spsym( ) ) , 
spsym( . )  ,atm(end)  ,atm(and_c) , spsymf  . )  ] , spsymf ,)  ,_516314 
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(3682)  11  Back  to:  rest_args(_516240, [spsym( ) ) ,spsym 
( :-) ,vbl(Out) ,atm(is) , spsym( ( ) ,vbl(X) ,spsym(/\ ) ,spsym( : 
) ,vbl(Temp) , spsym( ) ) , spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_ 
inst) ,spsym(<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) 
,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . 
)],_516241) 


(3684)  12  Call:  true 
(3684)  12  Exit:  true 


(3682)  11  Exit:  rest_args( [ ] , [spsymt ) ) ,spsym( : - ) ,vbl 
(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym( A) ,spsym( : ) ,vbl(Te 
mp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym( <<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , [spsy 
m( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/ 
\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( 
:  )  ,vbl(To_inst)  ,spsym(<<)  ,spsym(  :  )  ,  vbl(To_meth)  ,spsym(  ( 
) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atra(end) ,atm(and_ 
c) ,spsym( . ) ]) 


(3685)  11  Call:  c( [spsym( ) ) ,spsym( : -) ,vbl(Out) ,atm( i 
s) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) 
)  ,spsym( , )  ,spsym(  (  )  ,spsym(  :  )  ,vbl(To_inst)  ,spsyni(<<)  ,sps 
ym( : )  ,vbl(To_meth)  ,spsym(  (  )  ,vbl(Out)  ,spsym( ) )  ,spsym( ) ) , 
spsymj . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym( ) ) ,  516185 
) 


(3685)  11  Exit:  c(  [spsym(  )  )  ,spsym(  : -)  ,  vbl(Out)  ,atm(  i 

124 


APPENDIX  I   TRACE  OF  CLASS  DEFINITION:   "class  and  c" 


(3686)  11  Call:  append( [X] , [ ] ,_516184) 

(3687)  12  Call:  appendf [ ] , [ ] ,_5760) 

(3687)  12  Exit:  appendf [],[],[] ) 

(3686)  11  Exit:  append! [X] ,[], [X] ) 

(3670)  10  Exit:  args( [X] , [spsym( ( ) ,vbl(X) ,spsym( ) ) ,s 
psym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,sps 
ym(  : )  ,vbl(Temp)  ,spsym(  )  ),spsym( , )  ,spsym(  (  )  ,spsym( : )  ,vbl 
(To_inst) ,spsym(<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl( 
Out),spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,sps 
ym(  .  ) ) ,  [spsym(  :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsy 
m(/\) ,spsym(  : )  ,vbl(Temp)  ,spsym( ) )  ,spsyin( , )  ,spsym(  ( )  ,sps 
ym( : ),vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsy 
m((),vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ),atnt(end) ,atm( - 
nd_c) ,spsym( . ) ]) 


a 


(3688)  10  Call:  printargs( [X] , [spsym( : -) , vbl(Out) ,at 
m(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsy 
m( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) , vbl ( To_inst ) ,spsym(<<) , 
spsym( : ) , vbl(To_meth) ,spsym( ( ) , vbl (Out) ,spsym( ) ) ,spsym( 
) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ],_516132) 


(3690)  11  Call:  writestr ( [X] ) 
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X    (3692)  12  Call:  writestr([]) 
(3692)  12  Exit:  writestr([]) 
(3690)  11  Exit:  writestr ( [X] ) 


(3688)  10  Exit:  printargs( [X] , [ spsym( :-) ,vbl(Out) ,at 
m(is) ,spsym( ( ) ,vbl(X) , spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsy 
m( ) ) ,spsym( , ) , spsym( ( ) ,spsym( : ) ,vbl(To_inst) , spsym(<<) , 
spsym(  :  )  ,vbl(To_meth)  ,spsym(  (  )  ,vbl(Out)  ,spsym(  )  )  ,spsym( 
) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , [spsym( :-) ,vb 
l(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(T 
emp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,s 
psym(<<) ,spsym( : ) ,vbl(Tc_meth) ,spsym( ( ) ,vbl(Out) , spsym( 
) )  ,spsym( ) )  ,spsym( .  )  ,atm(end)  ,atm(and_c)  ,spsym(  . )  ] ) 


)  (3664)  9  Exit:  raeth_head(  [atm(  in2  )  ,spsytn(  (  )  ,vbl(X)  , 
spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,sps 
ym(/\) ,spsym( : ) ,vbl(Terap) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,sp 
sym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,sps 
ym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm( 
and_c) ,spsym( . ) ] , [spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,v 
bl(X) ,spsym(/\),spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,sp 
sym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_ 
meth)  ,spsym(  (  )  ,vbl(Out)  ,spsyra( ) )  ,spsym(  ) )  ,spsym( .  ),atm( 
end) ,atm(and_c) ,spsym( . ) ] ) 


(3694)  9  Call:  meth_tail( [spsym( : -) , vbl(Out) ,atm( is) 
,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym(  ) ), 
spsym( , )  ,spsym(  ( )  ,spsym(  : ) , vbl ( To_inst )  ,spsym(<<)  ,spsym 
( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,sp 
sym( . ) ,atm(end) ,atra(and_c) ,spsym( . ) ] ,_516120) 

(3695)  10  Call:  c( [spsym( : -) ,vbl(Out) ,atm( is) ,spsym( 
( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , 
) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl 
(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) , 


126 


APPENDIX  I   TRACE  OF  CLASS  DEFINITION:   "class  and_c" 
atm(end) , atm ( and_c ) ,spsym( . ) ] ,spsym( :-) ,_5767) 


(3698)  11  Call:  subgoallist( [ vbl(Out) ,atm( is) ,spsym( 
( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , 
) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst ) ,spsym(<<) ,spsym( : ) ,vbl 
(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) , 
atm(end) ,atm(and_c) ,spsym( . ) ] ,_516436) 


(3699)  12  Call:  subgoaK [vbl(Out) ,atm( is) ,spsym( ( ) ,v 
bl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,sp 
sym( ( ) , spsymt : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_ 
meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm( 
end) ,atm(and_c) ,spsym( . ) ] ,_516447) 


(3700)  13  Call:  exp(_516458 , [vbl(Out) ,atm( is) ,spsym( 
( )  ,vbl(X)  ,spsym(/\)  ,spsyin( : )  ,vbl(Temp)  ,spsym( )  )  ,spsym(  , 
)  ,spsym(  (  )  ,spsym(  : ) , vbl(To_inst)  ,spsym(<<)  ,spsym(  : )  ,vbl 
(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) , 
atm(end) ,atm(and_c) ,spsym( . ) ] ,_516447) 


(3701)  14  Call:  unop(_5800,  [ vbl(Out) ,atm(is) ,spsym( i 
) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ; 
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,spsyra( ( ) ,spsym( : ) , vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl( 
To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ),a 
tm(end) ,atm(and_c) ,spsym( . ) ] ,_5801) 

(3702)  15  Call:  c( [vbl(Out) ,atm( is) ,spsym( ( ) ,vbl(X) , 
spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , 
spsym(  ( )  ,vbl(Out)  ,spsym( )  ),spsym(  ) )  ,spsym( . )  ,atm(end)  ,a 
tm(and_c) ,spsym( . ) ] ,spsym( :-) ,_5801) 

(3702)  15  Fail:  c( [vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) , 
spsym(A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , 
spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c) ,spsym( . ) ] ,spsym( :-) ,_5801) 


(3704)  15  Call:  c( [vbl(Out) ,atm(is) ,spsym( ( ) , vbl(X) , 
spsym(A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , 
spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c) ,spsym( . ) ],atm(not) ,_5801) 

(3704)  15  Fail:  c( [vbl(Out) ,atm( is) ,spsym( ( ) ,vbl(X) , 
spsym(A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , 
spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
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tm(and_c) ,spsym( . ) ] ,atm(not) ,_5801) 


(3705)  15  Fail:  c( [vbl(Out) ,atm( is) ,spsym( ( ) ,vbl(X) , 
spsym(A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,spsym( : ) , vbl(To_inst) , spsym ( <<) ,spsym( : ) ,vbl(To_meth) , 
spsym(  (  )  ,vbl(Out)  ,spsym( )  )  ,spsym( ) )  ,spsym(  . )  ,atm(end)  ,a 
tm(and_c) , spsym ( . ) ] ,spsym(\+) ,_5801) 

(3706)  15  Call:  c( [ vbl(Out) ,atm( is) ,spsym( ( ) ,vbl(X) , 
spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,  spsym ( : ) ,vbl(To_inst) , spsym(<<) ,  spsym  ( : ) ,vbl(Tc_meth) , 
spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c) , spsym( . ) ] ,atm(spy) ,_5801) 

(3706)  15  Fail: 
spsym ( A ) , spsym ( : 
,spsym( : ) ,vbl(To 
spsym ( ( ) ,vbl(Out 
tm(and_c) , spsym ( 


spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym(  ) ) ,spsym( 
tm(and_c) ,spsym( . ) ] ,atm(nospy) ,_5801) 


(3707)  15  Fail:  c( [ vbl(Out) ,atm( is) ,spsym( ( ) ,vbl(X) , 
spsym (A) ,spsym( : ) ,vbl(Temp) , spsym ( ) ) ,spsym( , ) , spsym ( ( ) 
,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , 
spsym( ( ) ,vbl(Out) ,spsym( )) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c) ,spsym( . ) ] ,atm(nospy) ,_5801) 
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unop(_5800,  [vbl(Out)  ,atm(is)  ,spsyin(  ( 
--ym( ) ) ,spsym( , ) 
,spsym( : ) ,vbl( 
, spsymt . ) ,a 


atin(is)  ,s 

spsym( ) ),sp 

spsymt : 

( )),spsy 


(3710)  16  Call:  c( [vbl(Out) ,atm( is) , spsymt () ,vbl(X) , 
spsym(/\)  ,spsym( : )  ,vbl(Temp)  ,spsym(  ) ) , spsymt  , )  , spsymt  (  ) 
, spsymt : ) ,vbl(To_inst) ,spsym(<<) , spsymt : ) ,vbl(Tc_meth) , 
spsymt  (  )  ,vbl(Out) , spsymt  )  )  , spsymt  ) ) , spsymt  . )  ,atm(end)  ,a 
tm(and_c) , spsymt . ) ] ,atm(_5821) ,_5820) 

(3710)  16  Fail:  c( [vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) , 
spsym(A) , spsymt : ) ,vbl(Temp) , spsymt ) ) , spsymt , ) , spsymt ( ) 
, spsymt : ) ,vbl(To_inst) ,spsym(<<) , spsymt : ) ,vbl(Tc_meth) , 
spsymt ( ) ,vbl(Out) , spsymt ) ) , spsymt ) ) , spsymt . ) ,atm(end) ,a 
tm(and_c) , spsymt . ) ] ,atm(_5821) ,_5820) 


(3711)  16  Call:  variable(_5818 , [vbl(Out) ,atm( is) ,sps 
ym( ( ),vbl(X) , spsymt A) , spsymt : ) ,vbl(Temp) , spsymt ) ) ,spsy 
m( , ), spsymt ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) , 
vbl(To_meth) ,spsym( ( ) ,vbl(Out) , spsymt ) ) ,spsym( ) ) , spsymt 

(3712)  17  Call:  c( [ vbl(Out) ,atm( is) ,spsym( ( ) ,vbl(X) , 
spsymt  A) , spsymt  :  )  ,vbl(Temp) , spsymt  )  ) , spsymt , ) , spsymt  ( ) 
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,spsym( : ) , vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_raeth) , 
spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c) , spsym ( . ) ] ,vbl(_5830) ,_5820) 


spsym 

tm  ( and 

psym( 

spsym 

psym( , , 

m(and_c) , spsym ( 

(3711)  16  Exit:  variable) [Out] , [vbl(Out) ,atm( is) ,sps 
ym( ( ) ,vbl(X) ,spsym(/\) , spsym ( : ) ,vbl(Temp) ,spsym(  ) ) ,spsy 
m( , ) ,spsym( ( ) ,spsym( : ) , vbl(To_inst) ,spsym(<<) ,spsym( : ) , 
vbl(To_meth) ,spsym( ( ),vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 
X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) , spsym 
( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_met 
h),spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( .),atm(end 
) , atm ( and_c ) , spsym ( . ) ] ) 

(3709)  15  Exit:  receiver ( [Out] , [vbl( Out) , atm ( is) ,sps 
ym( ( ) ,vbl(X) ,spsym(A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsy 
m( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) , 
vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 
X)  ,spsym(/\)  ,spsym(  : )  ,vbl(Temp)  ,spsym( ) )  ,spsym(  , ) , spsym 
( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_met 
h) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end 
) ,atm(and_c) ,spsym( . ) ] ) 


(3714)  16  Call:  c( [atm( is) ,spsym( ( ) , vbl(X) ,spsym( A ) 
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, spsym( : ) ,vbl(Temp) , spsym( ) ) , spsym( , ) ,spsym( ( ) ,spsyra( : 
,vbl(To_inst) , spsym(<< ) , spsym( : ) , vbl(To_meth) , spsym( ( ) 
T^Ki  tm,*-\  ,spsym(  ) )  , spsymi ) )  , spsymi  . )  ,atm(end)  ,atm(and_c 
I  ]  ,spsyin(<<)  ,_516498) 


,spsym( 


(3714 
,spsym( : 
,vbl(To_ 
vbl ( Out ) 
,spsym( . 


16  Fail:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( /\ 

vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : 

inst) , spsymi <<) , spsym( : ) ,vbl(To_meth) ,  spsym( ( ) 

spsym( ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,atm(and_c 

] ,spsym(<<) ,_516498) 


(3715 
,spsym( 
, vbl (To 
vbl (Out 
,spsyra( 


(3715 
,spsym( : 
, vbl ( To_ 
vbl ( Out ) 
,spsym( . 


(3716 
,spsym( : 
,vbl(To_ 
vbl ( Out ) 
,spsym( . 


(3716 
,spsym( : 
,vbl(To_ 
vbl ( Out ) 
,spsym( . 


(3717 
,spsym, 
, vbl ( To 


16  Fail:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( A 
, ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : 
inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) 

spsym(  ) )  ,spsvm( ) )  ,spsym( . )  ,atm(end)  ,atm(and_c 

],spsym(?<) ,_516498) 


17)  16  Call:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( /\ 
( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsYm( ( ) ,spsym( : j 
o_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
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vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym(?<?) ,_516498) 


(3713)  15  Fail:  raesgop(_5817, [atm( is) ,spsym( ( ) ,vbl(X 
) ,spsym(  A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( 
( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth 
),spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) 
,atm(and_c) ,spsym( . ) ] ,_516498) 

(3712)  17  Back  to:  c( [vbl(Out) ,atm( is) ,spsym( ( ) ,vbl( 
X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym 
( ( ) ,spsym( : ) ,vbl(Tc_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_met 
h),spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end 
) ,atm(and_c) ,spsym( . ) ] ,vbl(_5830) ,_5820) 

(3712)  17  Fail:  c( [vbl(Out) ,atm( is) ,spsym( ( ) ,vbl(X) , 
spsym(  A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,spsym( : ) ,vbl(To_inst) ,spsym( <<) ,spsym( : ) ,vbl(To_meth) , 
spsym(  (  )  ,vbl(Out)  ,spsym(  ) )  ,spsym( )  )  ,spsym(  . )  ,atm(end)  ,a 
tm(and_c) ,spsym( . ) ] ,vbl(_5830) ,_5820) 

(3711)  16  Fail:  variable(_5818, [vbl(Out) ,atm( is) ,sps 
ym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsy 
m( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) , 
vbl(To_meth) ,spsym( ( ) , vbl ( Out ) , spsym ( ) ) ,spsym( ) ) ,spsym( 
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(3720)  18  Call:  c( [ vbl(Out) ,atm( is) ,spsym( ( ) ,vbl(X) , 
spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , 
spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c) ,spsym( . ) ] ,spsym( : ) ,_5833) 

(3720)  18  Fail:  c( [vbl(Out) ,atm( is) ,spsym( ( ) ,vbl(X) , 
spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,spsym( : ) , vbl ( To_inst ) ,spsym( <<) ,spsym( : ) ,vbl(To_meth) , 
spsym( ( ) , vbl (Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c) ,spsym( . ) ] ,spsym( : ) ,_5833) 


(3719)  17  Fail:  spvaraccess( : , [ vbl(Out) ,atm( is) ,spsy 
m( ( ) ,vbl(X) ,spsym(  A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym 
( , )  ,spsym(  (  )  ,spsym( : )  ,vbl(To_inst)  ,spsvm(<<)  ,spsym( : )  ,v 
bl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . 
) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_5833 ) 


(3721)  17  Call:  spvaraccess( : : , [ vbl (Out) ,atm(is) ,sps 
ym(  ( ),vbl(X)  ,spsvm(/\)  ,spsym(  :  ) ,  vbl  (Temp)  ,spsym(  ) )  ,spsy 
m( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) , 
vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 

(3722)  18  Call:  c( [ vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) , 
spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsvm( : ) ,vbl(To_meth) , 
spsym( ( ) , vbl (Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c) ,spsym( . ) ] ,spsym( : : ) ,_5835) 

(3722)  18  Fail:  c( [vbl(Out) ,atm( is) ,spsym( ( ) ,vbl(X) , 
spsym( A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
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,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) , vbl(Tc_meth) , 
spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c) ,spsym( . ) ] ,spsym( : : ) ,_5835) 

(3721)  17  Fail:  spvaraccess( : : , [ vbl(Out) ,atm( is) ,sps 
ym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsy 
m( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) , 
vbl(To_meth)  ,spsym(  ( )  ,vbl(Out)  ,spsym(  ) )  ,spsym( )  )  ,spsym( 

(3718)  16  Fail:  spvbl(_5818, [ vbl(Out) ,atm( is) ,spsym( 
( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , 
) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl 
(To_meth)  ,spsym(  ( )  ,vbl(Out)  ,spsym( ) )  ,spsym(  )  ),spsYin( . ) , 
atm(end) ,atm(and_c) ,spsym( . ) ] ,_5820) 

(3709)  15  Fail:  receiver (_516496, [vbl(Out) ,atm(is) ,s 
psym(  (  )  ,vbl(X)  ,spsym(/\)  ,spsyni(  : )  ,vbl(Temp)  ,spsym( ) )  ,sp 
sym( ,) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,  spsym( : 
) ,vbl(To_raeth) ,spsyra( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( )) ,spsy 
m( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ],_516497) 

(3708)  14  Back  to:  raessage(_5797 , [ vbl(Out) ,atm( is) ,s 
psym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,sp 
sym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : 
) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ),spsym( ) ) ,spsy 
m( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ],_5799) 

(3708)  14  Fail:  message(_5797, [vbl(Out) ,atm(  is) ,spsy 
m( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsyra 
( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,v 
bl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . 
) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_5799) 

(3723)  14  Call:  term(_5804, [ vbl(Out ) ,atm( is) ,spsym( ( 
) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) 
,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl( 
To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ),spsym( ) ) ,spsym( . ) ,a 
tm(end) ,atm(and_c) ,spsym( . ) ] ,_5805) 
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(3724)  15  Call:  pred(_5804  ,  [  vbl(Out)  ,atm(  is)  ,spsym(  ( 
) ,vbl(X) ,spsym(/\) , spsyml : ) ,vbl(Temp) ,spsym( ) ) , spsyml , ) 
,spsym( ( ) , spsyml : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl( 
To_meth)  ,spsym(  ( )  ,vbl(Out)  , spsyml  ) )  ,spsyra(  )  )  ,spsym(  .),a 
tm(end) ,atm(and_c) , spsyml . ) ] ,_5805) 

(3725)  16  Call:  c( [ vbl(0ut ) ,atm( is) ,spsym( ( ) ,vbl(X) , 
spsyra(/\)  ,spsym( : )  ,vbl(Temp)  ,spsym( )  )  , spsyml  , )  , spsyml  ( ) 
, spsyml : ) , vbl(To_inst) ,spsym(<<) , spsyml : ) ,vbl(To_meth) , 
spsyml ( ) ,vbl(Out) ,spsym( ) ) , spsyml ) ) ,spsym( . ) ,atm(end),a 
tm(and_c) , spsyml . ) ] ,atm(_5842) ,_516521) 


(3724)  15  Back  to:  pred(_5804, [vbl(Out) ,atm(is) ,spsy 
m(  ( ),vbl(X)  ,spsym(/\)  , spsyml :  )  ,vbl(Temp)  , spsyml ) )  ,spsym 

( , )  , spsyml  (  )  , spsyml  :  )  ,vbl(Tc_inst)  ,spsym(<<)  , spsyml  : )  ,v 
bl(To_meth)  , spsyml  (  )  ,vbl(Out) , spsyml  )  )  ,spsym(  ) ) , spsyml . 

) ,atm(end) ,atm(and_c) , spsyml . ) ] ,_5805) 

(3724)  15  Fail:  pred(_5804, [vbl(Out) ,atm(is) , spsyml ( 
),vbl(X),spsym(/\), spsyml :),vbl(Temp),spsym( ) ), spsyml  ,) 
, spsyml ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) , spsyml : ) ,vbl( 
To_meth) , spsyml ( ) , vbll Out ), spsyml ) ) , spsyml ) ), spsyml . ) ,a 
tm(end) ,atm(and_c) , spsyml . ) ] ,_5805) 

(3726)  15  Call:  const(_5804, [vbl(Out) ,atm(is) ,spsym( 
( ) ,vbl(X) ,spsym(/\) , spsyml : ) , vbll Temp ), spsyml ) ), spsyml , 
) , spsyml ( ) , spsyml : ) ,vbl(To_inst) ,spsym(<<) , spsyml : ) ,vbl 
(To_meth) , spsyml ( ) , vbll Out ), spsyml ) ) , spsyml ) ) , spsyml . ) , 
atm(end) ,atm(and_c) , spsyml . ) ] ,_5805) 
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(3727)  16  Call:  c( [vbl(Out) ,atm( is) ,spsym( ( ) ,vbl(X) , 
spsym(A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,spsym( : ) , vbl ( To_inst ) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , 
spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c) ,spsym( . ) ] ,num(_5845) ,_5805) 

(3727)  16  Fail:  c( [vbl(Out) ,atm( is) ,spsym( ( ) , vbl(X) , 
spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , 
spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c)  ,spsym(  .  )  ]  ,mutt(_5845)  ,_5805) 

(3728)  16  Call:  c( [ vbl(Out) ,atm( is) ,spsym( ( ) , vbl(X) , 
spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) 
,spsyiti(  :  )  ,vbl(To_inst)  ,spsym(<<)  ,spsym(  :  )  , vbl(Tc_meth)  , 
spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ),spsym( . ) ,atm(end),a 
tm(and_c) ,spsym( . ) ] ,atm(_5845) ,_5805) 


(3729)  16  Fail:  c(  [ vbl(Out)  ,atm( is)  ,spsyni(  (  )  ,vbl(X) , 
spsym( A),spsym(:), vbl ( Temp ),spsym() ),spsym( ,),spsym(( ) 
,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , 
spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end),a 
tm(and_c)  ,spsym(  . )  ]  ,spsym(  "  )  ,_516530) 

(3726)  15  Back  to:  const(_5804,  [  vbl(Out)  ,atm(  is)  ,sps 
ym( ( ) ,vbl(X) ,spsym( A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsy 
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m(  , )  ,spsym(  ( )  , spsymt  :  )  ,vbl(To_inst)  , spsymt <<)  , spsym( : ) , 
vbl(Tc_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 

(3730)  16  Call:  c( [vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) , 
spsym(A) , spsymt : ) ,vbl(Temp) , spsymt ) ) , spsymt , ) , spsymt  ( ) 
,spsym( : ) , vbl(Tc_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , 
spsymt  (  )  ,vbl(Out)  ,spsym(  ) )  ,spsym( )  )  , spsymt  . )  ,atm(end)  ,a 
tra(and_c) ,spsym( . ) ] ,spsyra(_5845) ,_516530) 

(3730)  16  Fail:  c( [vbl(Out) ,atm( is) ,spsym( ( ) ,vbl(X) , 
spsym(A) ,spsym( : ) ,vbl(Temp) , spsymt ) ) ,spsym( , ) ,spsym( ( ) 
,spsym( : ) ,vbl(To_inst) ,spsym(<<) , spsymt : ) , vbl(Tc_meth) , 
spsym( ( ) ,vbl(Out) , spsymt ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c) , spsymt . ) ] ,spsym(_5845) ,_516530) 

(3726)  15  Back  to:  const(_5804, [vbl(Out) ,atm( is) ,sps 
ym( ( ) ,vbl(X) ,spsym(/\) , spsymt : ) ,vbl(Temp) ,spsym( ) ) ,spsy 
m( , ) ,spsym( ( ) ,spsym( : ) ,vbl(Tc_inst) ,spsym(<<) ,spsym( : ) , 
vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) , spsymt ) ) ,spsym( 

(3726)  15  Fail:  const(_5804, [vbl(Out) ,atm( is) ,spsym( 
( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , 
)  ,spsym(  (  )  ,spsym(  :  )  ,vbl(To_inst)  ,spsym(<<)  ,spsym(  :  ),vbl 
(To_meth),spsym(  ( )  ,vbl(Out)  ,spsym(  )  ),spsym(  ) )  ,spsym( . ) , 
atm(end) ,atm(and_c) ,spsym( . ) ],_5805) 

(3731)  15  Call:  variable (_5804, [ vbl(Out) ,atm( is) ,sps 
ym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsy 
m( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) , 
vbl(To_meth),spsym( ( ) ,vbl(Out) ,spsym( )),spsym( )),spsym( 

(3732) 
spsym(/\; 
,spsym( :1 , . 

spsym( ( ),vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 
tm(and_c) ,spsym( . ) ] ,vbl(_5849) ,_5805) 
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(3731)  15  Exit:  variable! [Out] , [vbl( Out) ,atm( is) ,sps 
ym(  ( ) ,vbl(X) ,spsym(/\) , spsymi : ) ,vbl(Temp) , spsymi ) ) ,spsy 
m( , ) , spsym( ( ) ,spsym( : ) ,vbl(To_inst) , spsymi <<) , spsym( : ) , 
vbl(To_meth) , spsymi ( ) ,vbl(Out) ,spsym( ) ) , spsymi ) ) , spsymi 
X) ,spsym( /\) , spsym( : ) ,vbl(Temp) ,spsym( ) ) , spsym( , ) ,spsym 
( ( ) ,spsym( : ) ,vbl(To_inst) , spsymi <<) , spsym( : ) ,vbl(Tc_met 
h) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end 
) ,atm(and_c) ,spsym( .)]) 


(3723 
),vbl(X 
,spsym( ( 
To_meth) 
tm  ( end ) , 
psym(/\) . 
spsym( : ) , 
psym( ( ) ,vbl 
m(and_c) ,spsym( . 


(3733)  14  Call:  restexpl [Out] ,_5797, [atm(is) ,spsym( ( 
) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) 
,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl( 
To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,a 
tm(end) ,atm(and_c) ,spsym( . ) ] ,_5799) 
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(3735 
,spsym( : 
,vbl(To_ 
vbl ( Out ) 
,spsym( . 


(3735)  16  Fail:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( /\) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) 
,vbl(To_inst) , spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ],spsym( :-) ,_5859) 


(3736)  16  Call:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( A) 
,spsym(  :  )  ,vbl(Temp)  ,spsym(  )  )  ,spsym(  ,  )  ,spsym(  (  )  ,spsym(  :  ) 
,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym(  ( ) , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) , atm ( and_c ) 
,spsym( . ) ] ,spsym( — >) ,_5859) 


(3736 
,spsym( : 
,vbl(To_ 
vbl ( Out ) 
,spsym( . 


(3737 
, spsymt : 
, vbl ( To 
vbl  ( Out' 
,spsym( 


16  Fail:  c( [atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) 

,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) 

inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 

spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 

],spsvm(— >),_5859) 


(3737)  16  Call:  c( [atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) 
,vbl(To_inst) ,spsyra(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
vbl(Out) ,spsym( ) ),spsym( ) ) ,spsym( .),atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym(->) ,_5859) 


16  Fail 
vbl 
inst 
spsym( ) 
] ,spsym( 


Fail:  c( [atm(is) ,spsym( ( ) , 
(Temp) ,spsym( ) ) ,spsym( , ) ,s^^^. 
,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
m( ) 1 -spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) 
>),_5859) 


vbl(X),spsyra(/\) 
spsym( ( ) ,spsym( : ' 
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(3738 
,spsym( : 
,vbl(To 
vbl ( Out 
,spsym( 


(3738 
,spsym( : 
, vbl (To 
vbl  ( Out' 
,spsym( 


i)  16  Fail:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( /\ 
) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : 
inst) , spsym( <<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) 

'.spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c 
],spsym(=),_5859) 


(3739 
,spsym( : 
, vbl ( To 
vbl  ( Out' 
,spsym( 


3) 

16  Call:  c( [atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\ 

,vbl(Temp)  ,spsym(  )  )  ,spsyni( ,)  ,spsvm(  (  )  ,spsym( : 

inst) ,spsym( <<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) 

spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c 

] ,spsym(=. . ) ,_5859) 


(3740 
, spsym( : 
, vbl ( To_ 
vbl ( Out ) 
,spsym 


(3740 
,spsym( : 
,vbl(To_ 
vbl ( Out ) 
,spsym( . 


(3741 
,spsyra( : 


(3739)  16  Fail:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( A 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : 
,vbl(To_inst) ,spsym( <<) , spsym( : ) ,vbl(To_meth) ,spsym( ( ) 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c 
,spsym( . ) ] ,spsym(=. . ) ,  5859) 


,vbl(X),spsym(/\ 


)  16  Call:  c( [atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\ 
)  ,vbl(Temp)  ,spsym( ) )  ,spsvm(  , )  ,spsym(  ( )  ,spsym(  : 
inst) ,spsvm(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) 
,spsym( ) )  ,spsym(  ) )  ,spsym(  .  )  ,atm(end)  ,atm(and_c 
) ],spsym(==) ,_5859) 


16  Fail:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym(/\ 

vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsyra( : 

inst) ,spsym( <<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) 

spsym(  )  )  ,spsym( ) )  ,spsym(  . )  ,atm(end)  ,atm(and_c 

] ,spsym(==) ,_5859) 

16  Call:  c( [atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\ 
,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : 
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,vbl(To_inst 

vbKOut' 

,spsym 


lo_inst) , spsym( <<) , spsym( : ) ,vbl(To_meth) ,spsym(  ( ) , 
t) , spsyml ) ) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) 
,(.)],  spsyml  \==),_5859) 


(3742)  16  Fail:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( /\) 
,spsym(  : )  ,vbl(Temp)  , spsyml  )  )  ,spsym( ,)  , spsyml  ( )  ,spsym( : ) 
,vbl(To_inst)  ,spsym(<<)  , spsyml  : )  ,vbl(To_meth)  ,spsym(  ( ) , 
vbl(Out) ,spsym( ) ) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym(@<) ,_5859) 

(3743)  16  Call:  c(  [atm(is)  ,spsym(  (  )  ,vbl(X)  ,spsym(  A) 
,spsym( :  )  ,vbl(Temp)  ,spsym( ) )  ,spsym( , )  ,spsym(  ( )  ,spsym( : ) 

'-  meth),spsym((  ), 
end) ,atm(and_c) 


(3743)  16  Fail:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( /\) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( ,) ,spsym( ( ) ,spsym( : ) 
,vbl(To_inst)  ,spsym(<<)  ,spsyni( :  )  ,vbl(Tc_meth)  ,spsym(  ( )  , 
vbl(Out)  ,spsym( ) )  ,spsym(  ) )  ,spsym( . )  ,atm(end)  ,atm(and_c) 
,spsym( . ) ] ,spsym(S>) ,_5859) 
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,spsym( . ) ] ,spsym(@=<) ,_5859) 


(3745)  16  Fail: 
,spsym( : ) ,vbl'~ 
,vbl(To_inst) . 

vbl(Out)  , spsym(  )  )  ,spsym( )")  , spsymi 
,spsym( . )  ]  ,spsym(  8>=)  ,_5859) 


(3746)  16  Call:  c(  [atm(  is)  ,spsym(  (  )  ,vbl(X)  ,spsym(  /\  ) 
,spsym(  : )  ,vbl(Temp)  ,spsym(  )  )  ,spsym( , )  ,spsym(  (  )  , spsymi : ) 
,vbl(To_inst)  , spsymi  <<  )  ,spsym(  :  )  ,  vbl(To_meth)  ,spsym(  (  )  , 
vbl(Out) , spsymi ) ) , spsymi ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym(=:=) ,_5859) 


.  ,(/\) 
.  spsym( : ) 
,spsym( ( ) , 


(3746)  16  Fail:  c( [atm(is) ,spsym( ( ) ,vbl(X) ,spsym 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsyi 
,vbl(To_inst)  ,spsym(  <<)  ,spsyni(  : )  ,vbl(To_meth)  ,spsymv  v  , , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym(=:=) ,_5859) 

(3747)  16  Call:  c( [atm(is) ,spsym( ( ) ,vbl(X) ,spsym( /\) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) 
,vbl(To_inst)  ,spsym(<<)  ,spsym(  : )  ,vbl(To_meth)  ,spsyni(  (  ) , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) , atm (end) ,atm(and_c) 
,spsym( . ) ] ,spsym(=\=) ,_5859) 
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vbl(X),spsym(A) 

spsym( ( ) ,spsym( : ) 

meth) ,spsym( ( ) , 


(3748)  16  Fail:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( A) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) 
,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(Tc_meth) ,spsym( ( ), 
vbl(Out) ,spsym( ) ) ,spsym( ) ),spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym(<) ,_5859) 


(3750)  16  Fail:  c( [atm( is) ,spsym( ( ) , vbl(X) ,spsym( A ) 
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,spsym( : ) ,vbl(Temp) , spsym( ) ) ,spsym( , ) ,spsym(  ( ) , spsym(  : ) 
,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
vbl(Out)  ,spsym(  )  )  ,spsym( ) )  ,spsym( . )  ,atm(end)  ,atm(and_c) 
,spsym( . ) ] ,spsym(=<) ,_5859) 

(3751)  16  Call:  c(  [atm(  is)  ,spsym(  (  )  ,vbl(X)  ,spsyin( /\  ) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) 
,vbl(To_inst) , spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
vbl(Out)  ,spsym( )  )  ,spsym(  ) )  ,spsyni( . )  ,atm(end)  ,atm(and_c) 
,spsym( . ) ] ,spsym( >=) ,_5859) 


spsym(/\) 

,spsym( :) 

. spsym(  (  ), 

atm(and_c) 

(3752)  16  Fail:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( /\) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsYm( , ) ,spsym( ( ) ,spsym( : ) 
,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ),atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym(+) ,_5859) 

(3753)  16  Call:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( /\) 
,spsym( : )  ,vbl(Temp)  ,spsym( ) )  ,spsym(  ,)  ,spsym(  (  )  ,spsym( : ) 
,vbl(To_inst) ,spsym(<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) , 
vbl(Out),spsym( ) ) ,spsym( ) ) ,spsym( . ),atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym(-) ,_5859) 

(3753)  16  Fail:  c(  [atm(is)  ,spsym(  (  )  ,vbl(X)  ,spsym( /\) 
,spsym(  :  )  ,vbl(Temp)  ,spsym(  )  )  ,spsym(  ,  )  ,spsym(  (  )  ,spsym(  :  ) 
,vbl(To_inst)  ,spsym(<<)  ,spsym(  :  )  ,vbl(To_meth)  ,spsym(  (  )  , 
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vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym(-) ,_5859) 

spsym(/\) 

, spsym( : ) 

.  spsymf ( ) , 

atm  (and  c) 


,vbl(X) , spsymf /\) 

, spsymf ( ) , spsymf : ) 

,To_meth) , spsymf ( ) , 

atm ( end ) , atm ( and_c ) 


spsymf /\) 

, spsymf : ) 

.spsymf ( ) , 

atm(and_c) 


(3755) 
,spsym 
,vbl(To 
vbl ( Out 
,spsym 


(3756 
, spsymf 
, vbl (To 
vbl ( Out 
,spsym 
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(3757)  16  Call:  c(  [atm( is)  ,spsym(  ( )  ,vbl(X)  ,spsym(  A) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) 
,vbl(To_inst)  ,spsym( << )  ,spsym(  : )  ,vbl(To_meth)  ,spsym(  (  )  , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym(/) ,_5859) 

(3757)  16  Fail:  c(  [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( A) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) 
,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
, spsym( . ) ] , spsym( / ) ,_5859 ) 

(3758)  16  Call:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( A) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( ,) ,spsym( ( ) ,spsym( : ) 
,vbl(To_inst),spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
vbl(Out)  ,spsym( )  )  ,spsym(  ) )  ,spsym( . )  ,atm(end)  ,atm(and_c) 
,spsym( . )  ]  ,spsym(//)  ,_5859) 

(3758)  16  Fail:  c( [atm( is) , spsym( ( ) ,vbl(X) ,spsym( /\) 
,spsym(  : )  ,vbl(Temp)  ,spsym(  ) )  ,spsym(  ,  ),spsyin(  ( )  ,spsym( : ) 
,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(Tc_meth) ,spsym( ( ) , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym(/7) ,_5859) 

(3759)  16  Call:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( /\) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ),spsym( : ) 
, vbl ( Tc_inst ) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym( >>) ,_5859) 

(3759)  16  Fail:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( /\) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) 
,vbl(Tc_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
vbl(Out) ,spsym( ) ) ,spsym( )) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym(>>) ,_5859) 
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(3760)  16  Call:  c(  [atm(  is)  ,spsym(  (  )  ,  vbl(X)  ,spsym(  A) 
,spsyiri(  : )  ,vbl(Temp)  ,spsym( )  )  ,spsym(  , )  ,spsym(  (  )  ,spsym( : ) 
,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ] ,spsym( * ) ,_5859) 

(3760)  16  Fail:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym(  /\) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) 
,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
vbl(Out) ,spsym( ) ),spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsyiii(  .  )  ]  ,spsym(  "  )  ,_5859) 

(3761)  16  Call:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( /\ ) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) 
,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) , atm ( and_c ) 
,spsym( . ) ] ,atm(mod) ,_5859) 

(3761)  16  Fail:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( A) 
,spsym(  : )  ,vbl(Temp)  ,spsym(  ) )  ,spsym( , )  ,spsyni(  ( )  ,spsym( : ) 
,vbl(To_inst)  ,spsyin(<<)  ,spsym(  : )  ,vbl(Tc_meth)  ,spsym(  ( ) , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ] ,atm(mod) ,_5859) 

(3762)  16  Call:  c( [atm( is) ,spsym( ( ) ,vbl(X) ,spsym( /\) 
,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) 
,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym(  ( ) , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( . ) ] ,atm(is) ,_5859) 
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.-(Temp) ,spsym( , , 
t) ,spsym(<<) , spsym, . 
sym( ) ) ,spsym( ) ) ,spsym( 


(3763 
) , spsym 
),vbl(To 
,vbl(Out 
) , spsym 


(3765)  17  Call:  c(  [spsym(  ( )  ,vbl(X)  ,spsym(  A)  ,spsym( : 
) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_ 
inst)  , spsym (  <<)  , spsym ( :  )  ,vbl(To_meth)  , spsym (  (  )  , vbl (Out) 
,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . 
)],atm(_5905),_516609) 

,spsym( : 

, vbl ( To_ 

vbl ( Out ) 

spsym( . 


spsym 

spsy 

spsym 

atm(an 
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d_c),spsym(.)],_5799) 


(3764)  16  Fail:  pred(_5860, [spsym( ( ) ,vbl(X) ,spsym(  /\ 
) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : 
) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) 
,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c 
),spsyni(.)],_5799) 

(3766)  16  Call:  const(_5860,  [spsym(  (  )  ,  vbl(X)  ,spsym(  / 
\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( ,) ,spsym( ( ) ,spsym( 
: ) ,vbl(Tc_inst) ,spsym(<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( 
) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_ 
c) ,spsym( . ) ] ,_5799) 

(3767)  17  Call:  c( [spsym( ( ) ,vbl(X) ,spsym( A) ,spsym( : 
) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ),spsym( : ) ,vbl(To_ 
inst),spsym(<<)  ,spsym( : )  ,vbl(To_meth)  ,spsym(  (  )  ,vbl(Out) 
,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . 
)],num(_5908),_5799) 


(3768)  17  Call:  c( [spsym( ( ) ,vbl(X) ,spsym( /\ ) ,spsym( : 
),vbl(Temp),spsym( )) ,spsym( ,),spsym( (),spsym( :),vbl(To_ 
inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) 
,spsym( ) ) ,spsym( ) ) ,spsym( . ),atm(end) ,atm(and  c) ,spsym( . 
)],atm(_5908),_5799) 

(3768)  17  Fail:  c( [spsymf ( ) ,vbl(X) ,spsym( /\) ,spsym( : 
) ,vbl(Temp) ,spsym( ) ) ,spsym( ,) ,spsym( ( ) ,spsym( : ) ,vbl(To_ 
inst) ,spsyra(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) 
,spsym( ) ), spsymf ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . 
)],atm(_5908),_5799) 
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(3769)  17  Call:  c( [spsym( ( ) ,vbl(X) ,spsym( A) ,spsym( : 
) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_ 
inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) 
,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . 
)],spsym(") ,_516618) 

(3769)  17  Fail:  c( [ spsym( ( ) , vbl(X) ,spsym( /\ ) ,spsym( : 
)  ,vbl(Temp)  ,spsym( ) )  ,spsym( ,  )  ,spsym(  ( )  ,spsym(  : )  ,vbl(Tc_ 
inst)  ,spsym(<<) ,spsym( : ) , vbl ( To_meth ) ,spsym( ( ) ,vbl(Out) 
,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . 
)],spsym("),_516618) 

(3766)  16  Back  to:  const(_5860, [spsym( ( ) ,vbl(X) ,spsy 
m(/\)  ,spsym(  : )  ,vbl(Temp)  ,spsym(  ) )  ,spsym( , )  ,spsym(  ( )  ,sps 
ym( : ) , vbl ( To_inst ) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsy 
m( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(a 
nd_c),spsym( . )],_5799) 

(3770)  17  Call:  c( [spsym( ( ) ,vbl(X) ,spsym( /\ ) ,spsym( : 
) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_ 
inst)  , spsym(<<)  ,spsym( : )  ,vbl(To_meth)  , spsyml  (  )  ,  vbl  (Out) 
,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . 
) ] ,spsym(_5908) ,_516618) 

(3770)  17  Exit:  c( [spsyml () ,vbl(X) ,spsym(/\ ) ,spsym( : 
) ,vbl(Temp) ,spsym( ) ) , spsyml , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_ 
inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , vbl (Out) 
,spsym( ) )  ,spsyra(  ) )  , spsyml  . )  ,atm(end)  ,atm(and_c)  ,spsym(  . 
) ] ,spsym( ( ) , [vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( 
)  )  ,spsym( , )  ,spsym(  (  )  ,spsym(  :  )  ,vbl(To_inst)  ,spsym(<<)  ,sp 
sym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) 
,spsyra( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ) 

(3771)  17  Call:  c( [vbl(X) ,spsym( /\ ) ,spsym( : ) ,vbl(Tem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym(<<)  ,spsym(  :  )  , vbl(To_meth)  ,spsym(  (  )  ,vbl(Out)  ,spsym(  )  ) 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,qatom( 

5909),  516619) 
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(3771)  17  Fail:  c( [ vbl(X) ,spsym( A ) 
p)  , spsym(  )  )  ,spsym(  , )  , spsym(  (  )  , spsym(  :  ) 
ym(<<) ,spsym( : ) ,vbl(To_ — 
, spsymi ) ) , spsymi . ) ,  atm' 
_5909) ,_516619) 


(3770)  17  Back  to:  c( [spsym( ( ) ,vbl(X) ,spsym( A ) ,spsy 
m( : )  ,vbl(Temp)  ,spsym(  ) )  ,spsym( , )  ,spsym(  (  )  ,spsym(  :  )  ,vbl( 
To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(0 
ut) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m( . ) ] ,spsym(_5908) ,_516618) 

(3770)  17  Fail:  c( [spsym( ( ) ,vbl(X) ,spsym( /\ ) ,spsym(  : 
),vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_ 
inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) 
,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . 
) ] ,spsym(_5908) ,_516618) 

(3766)  16  Back  to:  const(_5860, [spsym( ( ) ,vbl(X) ,spsy 
m( A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,sps 
ym( :),vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsy 
m( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(a 
nd_c) ,spsym( . ) ],_5799) 

(3766)  16  Fail:  const(_5860, [spsym( ( ) , vbl(X) ,spsym( / 
\) ,spsym( : ) , vbl(Temp) ,spsym( ) ) ,spsym( ,) ,spsyra( ( ),spsym( 
: ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) , vbl(To_meth) , spsymi ( 
) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and 
c),spsym(.)],_5799) 

(3772)  16  Call:  variable (_5860, [spsym( ( ) ,vbl(X) ,spsy 
n\(/\)  ,spsym(  : )  ,vbl(Temp)  ,spsym( ) )  ,spsym(  , )  ,spsym(  ( )  ,sps 
ym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) , vbl(To_meth) ,spsy 
m( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(a 
nd_c) ,spsym( . ) ] ,_5799) 
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(3773)  17  Call:  c( [spsyml () ,vbl(X) ,spsym( A) ,spsym( : 
)  ,vbl(Temp)  ,spsym(  ) )  , spsyml , )  ,spsym(  (  )  , spsyml  :  )  ,vbl(To_ 
inst) ,spsym(<<) ,  spsyml : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) 
,spsym( ) ) ,spsym( ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . 
)],vbl(_5912),_5799) 


(3773)  17 
) , vbl ( Temp 
inst) ,spsym 
,spsyni(  ) ) , 
)],vbl(_59 


,vbl(X) ,spsy 

. spsym( ( ) ,sps 

,To_meth) ,spsy 

atm(end) ,atm(a 


(3774)  16  Call:  spvbl(_5860, [spsym( ( ) ,vbl(X) ,spsym( / 
\)  ,spsym( : )  ,vbl(Temp)  ,spsym(  ) )  , spsyml  , )  , spsyml  (  )  ,spsym( 
: ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( 
) ,vbl(Out) ,spsyra( ) ) , spsyml ) ) , spsyml . ) ,atm(end) ,atra(and_ 
c),spsym(.)],_5799) 

(3775)  17  Call:  spvaraccess( : , [spsyml ( ) ,vbl(X) ,spsym 
(A) ,spsym( : ) ,vbl(Temp) , spsyml ) ) ,spsym( ,) ,spsym( ( ) ,spsy 
m( : ) ,vbl(To_inst) ,spsym(<<) , spsyml : ) ,vbl(To_meth) ,spsym 
( ( ) ,vbl(Out) , spsyml ) ) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(an 
d_c) , spsyml . )] ,_5919) 

(3776)  18  Call:  c( [spsyml () ,vbl(X) , spsyml /\) ,spsym( : 
) ,vbl(Temp) , spsyml ) ) , spsyml , ) , spsyml ( ) , spsyml : ) ,vbl(To_ 
inst) , spsyml <<) , spsyml : ) ,vbl(To_meth) , spsyml ( ) , vbl I  Out) 
, spsyml ) ) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . 
)], spsyml :),_5919) 

(3776)  18  Fail:  c( [spsyml () ,vbl(X) , spsyml A ) , spsyml  : 
) ,vbl(Temp) , spsyml ) ) , spsyml , ) , spsyml ( ) , spsyml : ) ,vbl(To_ 
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inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) 
,spsym(  ) )  ,spsym( )  )  ,spsym(  . )  ,atm(end)  ,atm(and_c)  ,spsym(  . 
)],spsym(:),_5919) 

(3775)  17  Fail:  spvaraccess ( : , [ spsym( ( ) ,vbl(X) ,spsym 
(A) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsy 
m(  : )  ,vbl(To_inst)  ,spsym(<<)  ,spsym(  : )  ,vbl(To_meth)  ,spsyiti 
( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(an 
d_c) ,spsym( . )],_5919) 


(3778)  18  Call:  c( [spsym( ( ) ,vbl(X) ,spsym( A ) ,spsym( : 
) ,vbl(Terap) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(Tc_ 
inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) 
,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . 
)],spsym(::),_5921) 


(3777)  17  Fail:  spvaraccesst : : , [spsym( ( ) , vbl(X) ,spsy 
m(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) , spsym ( , ) ,spsym( ( ) ,sps 
ym( : ) ,vbl(To_inst)  - 
m(( ) ,vbl(Out)  ' 
nd_c ) , spsym ( 


7  Fail:  spvar access! : : , [ spsym ( ( ) ,vbl(X)  ,spsy 
( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsyra( ( ) ,sps 
s_inst) ,spsym(<<) , spsym ( : ) ,vbl(To_meth) ,spsy 
t) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(a 
(.)],_5921) 
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c) ,spsym( . ) ] ,_5799) 

(3779)  16  Call:  c( [spsyml ( ) ,vbl(X) ,spsym( /\ ) ,spsym(  : 
) ,vbl(Temp) , spsyml ) ) , spsyml , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_ 
inst)  ,spsym(<<)  ,spsym(  :  )  ,vbl(Tc_meth) , spsyml  (  )  ,vbl(Out) 
,spsym( ) ) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) ,spsym( . 
)], spsym( (),_5894) 

(3779)  16  Exit:  c( [spsym( () ,vbl(X) ,spsym( /\ ), spsyml : 
) ,vbl(Temp) ,spsym( ) ) , spsyml , ) , spsyml ( ) ,spsym( : ) ,vbl(To_ 
inst) , spsyml <<) , spsyml : ) ,vbl(To_meth) , spsyml ( ) ,vbl(Out) 
, spsyml ) ) , spsyml  ) ) , spsyml .  )  ,atm(end)  ,atm(and_c) , spsyml . 
) ] , spsyml ( ) , [vbl(X) ,  spsyml  A) , spsyml : ) ,vbl(Temp) , spsyml 
) ) , spsyml , ) , spsyml I ) , spsyml : ) ,vbl(To_inst) , spsyml <<) ,sp 
syml : ) ,vbl(To_meth) , spsyml ( ) ,vbl(Out) , spsyml ) ) , spsyml ) ) 
, spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ) 

(3780)  16  Call:  exp(_5895, [vbl(X) , spsyml A ), spsyml : ) 
,vbl(Temp) , spsyml  ) ) , spsyml  , ) , spsyml  (  ) , spsyml : )  ,vbl(To_i 
nst) ,spsym(<<) , spsyml : ) ,vbl(To_meth) , spsyml I ) ,vbl(Out) , 
spsyml ) ) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) 
],_5896) 

(3781)  17  Call:  unop(_5941, [vbl(X) ,spsym( /\) , spsyml : 
) ,vbl(Temp) , spsyml ) ) , spsyml , ) , spsyml ( ) , spsyml : ) ,vbl(To_ 
inst) , spsyml <<) , spsyml : ) ,vbl(To_meth) , spsyml I ) ,vbl(Out) 
, spsyml  )  )  , spsyml  )  )  , spsyml  . )  ,atm(end)  ,atm(and_c) , spsyml  . 
)],_5942) 


(3782)  18  Fail:  c( [vbl(X) , spsyml A ) , spsyml : ) ,vbl(Tem 
p) , spsyml ) ) , spsyml , ) , spsyml I ) , spsyml : ) ,vbl(To_inst) ,sps 
ym( <<) , spsyml : ) ,vbl(To_meth) , spsyml ( ) ,vbl(Out) , spsyml ) ) 
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,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,spsym( 
:-),_5942) 

(3783)    18   Call:    c( [vbl(X) ,spsym( A ) ,spsym( : ) , vbKTem 
p)  ,spsym(  ) )  ,spsym( , )  ,spsym(  (  )  ,spsym(  : )  ,vbl(To_inst)  ,sps 
ym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,spsym 
?-),    5942) 


(3783)  18  Fail:  c( [ vbl(X) ,spsym( A) ,spsym( : ) ,vbl(Tem 
p),spsym( ) ) ,spsym( , ),spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,spsym( 
?-),_5942) 


(3784)  18  Call:  c( [vbl(X) , spsym( /\ ) ,spsym( : ) , vbKTem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) , vbl ( To_inst ) ,sps 
ym(<< ) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,atm(no 
t),_5942) 


(3784)  18  Fail:  c( [vbl(X) ,spsym( /\ ) ,spsym( : ) , vbKTem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( . ),atm(end) ,atm(and  c) ,spsym( . )],atm(no 
t),_5942) 


(3785)  18  Call:  c( [vbl(X) ,spsym( /\ ) ,spsym( :), vbKTem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym( 
\+) ,_5942) 


(3785)  18  Fail:  c( [ vbl(X) ,spsym( /\ ) ,spsym( : ) ,vbl(Tem 
p)  ,spsym(  ) )  ,spsym( , )  ,spsym(  (  )  ,spsym(  :  )  ,vbl(To_inst)  ,sps 
ym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( .) ,atm(end) ,atm(and  c) ,spsym( . ) ],spsym( 
\+),    5942) 
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(3786)  18  Call:  c( [vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(T< 
p) ,spsyro( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,S] 
ym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ! 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,atm(; 
y),  5942) 


(3786)  18  Fail:  c( [ vbl(X) ,spsym( /\ ) ,spsym( : ) ,vbl(Tem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym ( <  <) , spsym ( : ) , vbl ( To_meth ) , spsym ( ( ) , vbl ( Out ) , spsym ( ) ) 
,spsym(  ) )  ,  spsym (  .  )  ,atm(end)  ,atm(and  c)  ,spsym( . )  1  ,atm  sp 
Y),_5942) 

(3787)  18  Call:  c( [vbl(X) ,spsym( /\) ,spsym( : ) , vbl (Tern 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
yra(<<) ,spsym( : ) , vbl ( To_meth ) , spsym ( ( ) , vbl ( Out ) , spsym ( ) ) 
,spsym( ) ),spsym( . ) ,atm(end) ,atm(and  c) ,spsym( .) ] ,atm(no 
spy),_5942) 

(3787)  18  Fail:  c( [vbl(X) ,spsym( A ) ,spsym( : ) ,vbl(Tem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym(<<),spsym(: ), vbl (To_meth) , spsym ( ( ),vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( . ),atm(end) ,atm(and  c),spsym( . ) ],atm(no 
spy),_5942)" 


(3788)  17  Call:  message(_5895 , [vbl(X) ,spsym( A ) ,spsy 
m(:),vbl(Temp),spsym( ) ) ,spsym( , ) ,spsym( ( ),spsym(: ),vbl( 
To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(0 
ut),spsym( ) ) ,spsym( ) ),spsym( . ) ,atm(end) ,atm(and  c) ,spsy 
m(.)],_5896)  *   * 
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_516680, [vbl(X) ,spsym(/\) ,s 

iDsvml . ) .spsyml ( ) ,spsym( : ) ,v 

meth) ,spsym( ( ) ,vb 

"end ) ,  atm  ( and_c ) ,  s 


(3790)  19  Call:  c( [ vbl(X) ,spsym( A ) ,spsym( : ) ,vbl(Tem 
p) , spsyml ) ) , spsyml , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym(<<) , spsyml :) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) , spsyml ) ) 
, spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ],atm(_5 
962),_5961) 

(3790)  19  Fail:  c( [ vbl(X) ,spsym( /\ ) ,spsym( : ) ,vbl(Tem 
p) ,  spsyml ) ) ,spsym( , ) ,spsym( ( ) , spsyml : ) ,vbl(To_inst) ,sps 

m(<<) ,spsym( : ) , vbl(To_meth) , spsyml ( ) ,vbl(Out) ,spsym( ) ) 
spsyml ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,atm(_5 
62),_5961) 

(3791)  19  Call:  variable (_5959, [vbl(X) ,spsym( /\ ) ,sps 
I :) ,vbl(Temp) , spsyml ) ) ,spsyra( , ) , spsyml ( ) ,spsym( : ) ,vbl 
3_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , spsyml ( ) ,vbl( 
:) , spsyml ) ) , spsyml ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,sps 
;.)],_5961) 


ym( 

fSp 

962 
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(3793)  18  Call:  mesgop( 
(Temp)  ,spsym(  ) )  ,,— 
, spsymi <<) , spsym 
m( ) ) ,spsym( 
16682) 


spsym(  :  )  ,vbl(To_meth)  ,spsym(  ( )  ,vbl(Out)  ,spsym(  ) 
) ) , spsymi . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym 
6682) 


(3794)  19  Fail:  c( [spsym( A ) ,spsym( : ) ,vbl(Temp) ,spsy 
m( ) ) ,spsym( , ) , spsym ( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) , 
spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( 
) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym( <<) ,_51 
6682) 

(3795)  19  Call:  c( [spsym( /\ ) ,spsym( : ) ,vbl(Temp) ,spsy 
m( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym( <<) , 
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spsym( : ) ,vbl(To_meth) , spsymf ( ) ,vbl(Out) , spsymf ) ) ,spsym( 
)  )  ,spsyin(  . )  ,atm(end)  ,atm(and  c)  ,spsym( . )  ]  ,spsym(  <?) ,  51 
6682) 


(3795)  19  Fail:  c( [spsym( A ) ,spsym( : ) , vbl(Temp) ,spsy 
m( ) ) , spsymf , ) , spsymf ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) , 
spsymf : ) ,vbl(To_meth) , spsymf ( ) ,vbl(Out) , spsymf ) ) , spsymf 
) )  ,spsym(  .  )  ,atm(end)  ,atin(and  c)  ,spsym(  . )  ] , spsymf  <?) ,  51 
6682) 

(3796)  19  Call:  c( [spsymf A) , spsymf :) ,vbl(Temp) ,spsy 
m( ) ) , spsymf , ) , spsymf ( ) , spsymf : ) ,vbl(To_inst) , spsymf <<) , 
spsymf  :  )  ,vbl(To_meth) , spsymf  (  ) ,  vblf  Out ), spsymf  ) ), spsymf 
) ) , spsymf . ) ,atm(end) ,atm(and  c) , spsymf . ) ] , spsymf ?<) ,  51 
6682) 

(3796)  19  Fail:  c( [spsymf A ) , spsymf :) ,vbl(Temp) ,spsy 
m( ) ) , spsymf , ) , spsymf ( ) , spsymf : ) , vbl ( To_inst ) , spsymf <<) , 
spsymf : ) ,vbl(Tc_meth) , spsymf ( ) ,vbl(Out) , spsymf ) ) , spsymf 
) ), spsymf . ) ,atm(end) ,atm(and  c) , spsymf . ) ] ,spsym(?<) ,  51 
6682) 

(3797)  19  Call:  c( [spsym( A ), spsymf :) ,vbl(Temp) ,spsy 
m( ) ) , spsymf , ) , spsymf ( ) , spsymf : ) ,vbl(To_inst) ,spsym(<<) , 
spsymf : ) ,vbl(Tc_meth) , spsymf ( ) ,vbl(Out) , spsymf ) ) , spsymf 
) ) , spsymf . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,spsym(?<?) ,  5 
16682) 

(3797)  19  Fail:  c( [spsym( A ), spsymf :) ,vbl(Temp) ,spsy 
m( ) ) , spsymf , ) , spsymf ( ) , spsymf : ) ,vbl(To_inst) ,spsym(<<) , 
spsymf : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ), spsymf 
)) , spsymf . ) ,atm(end) ,atm(and  c) , spsymf .)] ,spsym(?<?) ,  5 
16682)  ~ 

(3793)  18  Fail:  mesgop(_5958, [spsym( A ) ,spsym( : ) ,vbl 
(Temp) ,spsym( ) ), spsymf , ) , spsymf ( ) , spsymf : ) ,vbl(To_inst) 
,spsym(<<) ,spsym( : ) ,vbl(To_meth) , spsymf ( ) ,vbl(Out) ,spsy 
m( ) ) , spsymf ) ), spsymf . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_5 


m 
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16682) 

(3792)  20  Back  to:  c( [vbl(X) ,spsym( A ) ,spsym( : ) , vbl( 
Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) , 
spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym 
( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ],vbl 
(_5971),_5961) 

(3792)  20  Fail 

p)  ,spsym(  ) )  ,i 
ym( <<) ,spsym 
, spsymi ) ) 
971),_596 


(3798)  19  Call:  spvbl(_5959, [vbl(X) ,spsym( A ) ,spsym( 
: ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To 
_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out 
) ,spsym( ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,atm(and_c) ,spsym( 

(3799)  20  Call:  spvaraccessl : , [vbl(X) ,spsym( A ) ,spsy 
m( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl( 
To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(0 
ut) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],_5974) 

(3800)  21  Call:  c( [vbl(X) ,spsym( A) ,spsym( : ) ,vbl(Tem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym(  )  )  ,spsym(  .  )  ,atm(end)  ,atm(and_c)  ,spsym( .  )  ]  ,spsym( 
:),_5974) 
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(3800)  21  Fail:  c( [ vbl(X) ,spsym( A) ,spsym( : ) , vbl(Tem 
p)  ,spsym(  ) )  ,spsym( , )  ,spsym(  (  )  ,spsym(  : )  ,vbl(To_inst)  ,sps 
ym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,spsym( 
:),  5974) 


.  Fail:  spvaraccesst :, [vbl(X) ,spsym(/\) ,spsy 
m(  : )  ,vbl(Temp)  ,spsym(  )  )  ,spsym(  ,)  ,spsym(  ( )  ,spsym( : )  ,vbl( 
m(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(0 


(3799)  20  Fail: 
mi ' )  , vbl (Temp)  ,spsynu  >  )  ,  spsyuu  , ;  , spsynu  i  ;  ,  spsyim  :  )  ,  vdh 
To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(0 
ut) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsy 
m(.)],_5974) 


(3801)  20  Call:  spvaraccess( : : , [ vbl(X) ,spsym( /\ ) ,sps 
ym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym(  : ) ,vbl 
(To_inst) ,spsym(<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl( 
Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,sps 
ym(.)],_5976) 

(3802)  21  Call:  c( [vbl(X) ,spsym( /\ ) ,spsym( : ) ,vbl(Tem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) , vbl(To_inst) ,sps 
ym(<<) ,spsym( : ) , vbl ( Tojneth ) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,spsym( 
::),_5976) 

(3802)  21  Fail:  c( [vbl(X) ,spsym( /\) ,spsym( : ) , vbl(Tem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) , vbl(To_inst) ,sps 
ym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 

,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,spsym( 

::),_5976) 

(3801)  20  Fail:  spvaraccesst ::, [vbl (X) ,spsym( /\) ,sps 
ym(  :), vbl ( Temp ),spsym(  )),spsym(  ,)  ,spsym(  (  ),spsym(  :),vbl 
(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl( 
Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,sps 
ym(.)],_5976) 


(3798)  19  Fail:  spvbl(_5959, [vbl(X) ,spsym( /\ ) ,spsym( 
) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym(  : ) ,vbl(To 
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_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out 
)  ,spsym(  ) )  ,spsym(  ) )  ,spsym( . )  ,atm(end)  ,atm(and_c)  ,spsym( 


v3789)  18  Fail:  receiver (_516680, [vbl(X) ,spsym(/\) ,s 
psym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,v 
o_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vb 
t- 1  .gnranl  1  1  .sDsvml  1  )  . snsvml  .  )  . atm(end)  . atmland  c)  ,s 


(3789; 
,    ym(  : 

bl(To_inst)  ,spsym(<<)  ,spsym(  :  J  ,vDHTo_metnj  ,spsymu  ),vd 
l(Out)  ,spsym(  ) )  ,spsym( ) )  ,spsym(  .  )  ,atm(end)  ,atm(and_c)  ,s 
psym(.)],_516681) 


(3788)  17  Fail 
m( : ) ,vbl(Temp) 
To_inst ) , spsym 
ut),spsym())  " 
m(.)],_5896) 

(3803)  17  Call:  term(_5945, [vbl(X) ,spsym( /\) ,spsym( : 
)  ,vbl(Temp)  ,spsym(  )  )  ,spsym(  , )  ,spsym(  (  )  ,spsym( :  )  ,vbl(To_ 
inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) 
,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . 
)],_5946) 

(3804)  18  Call:  pred(_5945, [ vbl(X) ,spsym( /\) ,spsym( : 
) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_ 
inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) 
,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . 
)],  5946) 
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(3805)  19  Fail:  c( [ vbl(X) ,spsym( A ) ,spsym( : ) ,vbl(Tem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym(<<) ,spsym( : ) ,vbl(Tc_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,atm(_5 
983),_516705) 

(3804)  18  Back  to:  pred(_5945, [vbl(X) ,spsym( A ) ,spsy 
m( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl( 
To_inst)  ,spsym(<<)  ,spsym(  : )  ,vbl(To_meth)  ,spsym(  ( )  ,vbl(0 
ut) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],_5946) 


(3804)  18  Fail:  pred(_5945, [ vbl(X) ,spsym( /\) ,spsym( : 
),vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_ 
inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) 
,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . 
)],_5946) 


(3806)  18  Call:  const(_5945, [vbl(X) ,spsym( /\ ) ,spsym( 
: ) ,vbl(Terap) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To 
_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_raeth) ,spsym( ( ) ,vbl(Out 
) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( 


(3807)  19  Call:  c( [ vbl(X) ,spsym( /\ ) ,spsym( : ) , vbl(Tem 
p) ,spsym( ) ) ,spsyra( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym(<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,num(_5 
986),  5946) 


(3807)  19  Fail:  c( [vbl(X) ,spsym( /\ ) ,spsym( : ) , vbKTem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( . ) ,atra(end) ,atm(and_c) ,spsym( . ) ] ,num(_5 
986),_5946) 


(3808)  19  Call:  c( [vbl(X) ,spsym( /\ ) ,spsym( : ) , vbKTem 
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vbl ( Tern 
sps 
spsym( ! 
spsym( 


(3809)  19  Fail:  c( [ vbl(X) ,spsym( A ) ,spsym( : ) ,vbl(Tem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym(  <<)  ,spsym( : )  ,vbl(To_meth)  ,spsym(  (  )  ,vbl(Out)  ,spsym(  ) ) 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym( 
"),_516714) 


(3806)  18  Back  to:  const(_5945, [vbl(X) ,spsym( /\ ) ,sps 
ym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl 
(To_inst) , spsymi <<) , spsym( : ) ,vbl(To_meth) , spsym( ( ) ,vbl( 
Out) ,spsym( ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,atm(and_c) ,sps 
ym(.)],_5946) 


(3810)  19  Call:  c( [ vbl(X) ,spsym( /\) ,spsym( : ) , vbl(Tem 

p)  ,  spsymi  ) )  ,spsym( , )  ,spsym(  (  )  ,spsym(  : )  ,vbl(To_inst)  ,sps 

ym(<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 

,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym( 

5986),  516714) 


(3810)  19  Fail:  c( [vbl(X) ,spsym( /\) ,spsym( : ) ,vbl(Tem 
p)  ,spsym(  )  )  ,spsym(  , )  ,spsym(  ( )  ,spsym( : )  ,vbl(To_inst)  ,sps 
ym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , vbl (Out) ,spsym( ) ) 
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,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym( 
5986),  516714) 


(3806)  18  Back  to:  const(_5945, [vbl(X) ,spsym( / v 
ym( : ),vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( :), 
(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,v 
Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) , 
ym(.)],  5946) 


/\) ,sps 

vbl 

vbl( 

sps 


(3806)  18  Fail:  const(_5945, [ vbl(X) ,spsym( A ) ,spsym( 
: ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To 
_inst)  ,spsym(<<),spsym( : ) ,  vbl(To_meth)  ,spsym(  ( ) ,  vbl  (Out 
) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( 

(3811)  18  Call:  variable (_5945 , [vbl(X) ,spsym( /\) ,sps 
ym( : )  ,vbl(Temp)  ,spsym(  )  ),spsym( , )  ,spsym(  (  )  ,spsym(  : )  ,vbl 
(To_inst) ,spsym(<<),spsym( : ) ,vbl(To_meth) ,spsym( ( ),vbl( 
Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,sps 
ym( .)],_5946) 

(3812)  19  Call:  c( [vbl(X) ,spsym( /\ ) ,spsym( : ) ,vbl(Tem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym(<<)  ,spsym(  : )  ,vbl(To_meth)  ,spsytn(  (  )  ,vbl(Out)  ,spsym(  ) ) 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,vbl(  " 
990),_5946) 


5 


(3812)  19  Exit:  c( [vbl(X) ,spsym( A ) ,spsym( : ) , vbl(Tem 
p)  ,spsym( ) )  ,spsym( , )  ,spsym(  ( )  ,spsym(  : )  ,vbl(To_inst)  ,sps 
ym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , vbl (Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ],vbl(X) 
,[spsym(/\) ,spsym( : ) , vbl (Temp) ,spsym( ) ) ,spsym( , ) ,spsym( 
( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth 
)  ,spsym(  (  )  ,vbl(Out)  ,spsym(  ) )  ,spsym( )  ),spsym(  . )  ,atm(end) 
,atm(and_c) ,spsym( . ) ] ) 

(3811)  18  Exit:  variable! [X] , [vbl (X) ,spsym( A) ,spsym 
( : ) ,vbl(Temp) ,spsym( ) ) ,spsvm( , ) ,spsym( ( ) ,spsym( : ) ,vbl(T 
o_inst),spsym(<<) ,spsym( : ) , vbl ( To_meth ) ,spsym( ( ) ,vbl(Ou 
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(3813)  17  Call:  restexp( [X] ,_5895, [spsym( A ) ,spsym( : 
),vbl(Temp),spsym()),spsyni(  ,),spsym(  (  ),spsym(  :),vbl(To_ 
inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ),vbl(Out) 
,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . 
)],_5896) 

(3814)  18  Call:  binop(_5999, [spsym( A) ,spsym( : ) ,vbl( 
Temp),spsym( )),spsym(,) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) , 
spsyra(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym 
( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,  60 
00)  -  ~ 


(3815)  19  Fail 
m( ) )  ,spsym(  ,),s; 
spsymf : ) ,vbl(To 
) )  ,spsym(  .  )  ,atm' 
00) 
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(3816)  19  Call:  c(  [spsymf  A  )  ,spsym(  :  )  ,vbl(Temp)  ,spsy 
m( ) ) , spsymf , ) ,spsym( ( ) ,spsym( : ) ,vbl(Tc_inst) ,spsym(<<) , 
spsym(  : )  ,vbl(To_meth) , spsymf  ( )  ,vbl(Out)  ,spsym(  ) )  ,spsym( 
) ) , spsymf . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym( — >) ,_6 
000) 


(3816)  19  Fail:  c( [spsymf /\ ) ,spsym( :) ,vbl(Temp) ,spsy 
m( ) ) , spsymf , ) , spsymf ( ) , spsymf : ) ,vbl(To_inst) ,spsym(<<) , 
spsymf : ) ,vbl(To_meth) , spsymf ( ) ,vbl(Out) , spsymf ) ) , spsymf 
) ) , spsymf . ) ,atm(end) ,atm(and_c) , spsymf . ) ] , spsymf — >) ,_6 


(3817)  19  Call:  c( [spsymf /\ ), spsymf :) ,vbl(Temp) ,spsy 
m( ) ) , spsymf , ) , spsymf ( ) , spsymf : ) ,vbl(To_inst) ,spsym(<<) , 
spsymf : ) ,vbl(To_meth) , spsymf ( ) ,vbl(Out) ,spsym( ) ) , spsymf 
) ) , spsymf . ) ,atm(end) ,atm(and_c) , spsymf . ) ] ,spsym(->) ,_60 


00 


m() 


spsymf : ) , vbl ( To_meth ) .spsymf ( ) ,vbl(Out) , spsymf ) 
) ) , spsymf . ) ,atm(end) ,atm(and_c) , spsymf . ) ] ,spsym 
00) 


(3818)  19  Fail:  c( [spsym( A ) , spsymf : ) ,vbl(Temp) ,spsy 
m(  ) ) ,  spsymf  , )  ,  spsymf  (  ) , spsymf  : )  ,vbl(To_inst) , spsymf  <<) , 
spsymf : ) ,vbl(To_meth) , spsymf ( ) ,vbl(Out) , spsymf ) ) , spsymf 
) ) .spsymf . ) ,atm(end) ,atm(and_c) , spsymf . ) ] , spsymf =) ,_600 
0) 


(3819)  19  Call:  c( [spsym( /\ ) ,spsym( : ) ,vbl(Temp) , spsy 
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m( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(Tc_inst) ,spsym(<<) , 
spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( 
) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym(=. . ) ,_6 
000) 


(3820)  19  Fail:  c( [ spsym( A ) ,spsym( : ) ,vbl(Temp) ,spsy 
spsym(  , )  ,spsym(  (  )  ,spsym(  : ) , vbl ( To_inst )  ,spsym(<<) , 
"  " (To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( 


m( ) )  ,spsym(  , )  ,spsym(  (  )  ,spsym(  : )  , vbl ( To_inst )  ,spsymi<<J , 
spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( 
) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym(==) ,_60 
00) 


(3821)  19  Fail:  c(  [spsyn\( /\ )  ,spsym(  : )  ,vbl(Temp)  ,spsy 
m( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) , vbl ( To_inst ) ,spsym(<<) , 
spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsyra( 
)  )  ,spsym(  . )  ,atm(end)  ,atm(and_c)  ,spsym( . )  ]  ,spsym(  \==)  ,_6 
000) 


(3822)  19  Call:  c( [spsym( A) ,spsym( : ) ,vbl(Temp) ,spsy 
m( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsyra(<<) , 
spsym(  :  )  ,vbl(To_meth)  ,spsym(  (  )  ,vbl(Out)  ,spsym(  )  )  ,spsym( 
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) ) , spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym(@<) ,  60 


00) 


(3822)  19  Fail:  c([spsym(/\ 
m( ) ) ,spsym( , ) ,spsym( ( ' 


[spsym(  A) ,spsym( : ),vbl(Temp) ,spsy 
>"\  1 1  ,ofoiimi  , >  jspaynu  ( )  , spsym(  : ) ,  vbl (To_inst )  , spsymi  <<) , 
spsym( : ) ,vbl(To_meth) ,spsym( ( ) , vbl (Out) ,spsym( ) ) ,spsym( 
) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,spsym( ?<) ,  60 
00) 

(3823)  19  Call:  c( [spsym(/\ ) ,spsym( : ) ,vbl(Temp) ,spsy 
m( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) , 
spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( 
) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . )],spsym(@>) ,  60 
00) 


(3824)  19  Call:  c( [spsym( /\) ,spsym( : ) , vbl(Temp) ,spsy 
m( ) ) ,spsym( , ),spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) , 
spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( 
) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym(g=<) ,_6 

(3824)  19  Fail:  c( [spsym( /\) ,spsym( : ) , vbl(Temp) ,spsy 
m( ) ) ,spsyra( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) , 
spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( 
) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym(@=<) ,_6 


(3825)  19  Call:  c(  [spsym(  A)  ,spsym(  :  )  ,  vbl(Temp)  ,spsy 
m( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) , 
spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( 
) ) ,spsym( .) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym( @>=) ,_6 
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(3825)  19  Fail:  c(  [spsym(  A)  ,spsym(  :  )  ,vbl(Temp)  ,spsy 
m( ) ) , spsyml , ) , spsyml I ) ,spsym( : ) ,vbl(Tc_inst) ,spsym(<<) , 
spsyml : ) ,vbl(To_meth) , spsyml ( ) ,vbl(Out) , spsyml ) ) , spsyml 
) )  , spsyml  .  )  ,atm(end)  ,atm(and_c)  , spsyml  .  )  ]  , spsyml  6>=)  ,_6 
000) 


(3826)  19  Call:  c( [spsyml A ), spsyml :) ,vbl(Temp) ,spsy 
m( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) , vbl(To_inst) ,spsym(<<) , 
spsyml : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) , spsyml ) ) ,spsym( 
)  )  ,  spsyml  . )  ,atm(end)  ,atm(and_c)  , spsyml .  )  ] , spsyml  =  :  =  )  ,_6 
000) 

(3826)  19  Fail:  c( [spsym( /\ ), spsyml :) ,vbl(Temp) ,spsy 
ml  )  ) ,spsym( , ) , spsyml ( ) , spsyml : ) ,vbl(To_inst) ,spsym(<<) , 
spsym( : ) , vbl ( To_meth ) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) , spsyml 
) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ,spsym(=:=) ,_6 
000) 


(3827)  19  Fail:  c( [spsyml /\) , spsyml :) ,vbl(Temp) ,spsy 
m( ) ) , spsyml , ) ,spsym( ( ) , spsyml : ) ,vbl(To_inst) , spsyml <<) , 
spsyml : ) , vbl(To_meth) , spsyml ( ) ,vbl(Out) , spsyml ) ) , spsyml 
) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ,spsym(=\=) ,_6 
000) 

(3828)  19  Call:  c( [spsyml /\) , spsyml : ) ,vbl(Temp) ,spsy 
ml ) ) , spsyml , ) , spsyml ( ) , spsyml : ) , vbl ( To_inst ) , spsyml <<) , 
spsyml : ) ,vbl(To_meth) , spsyml ( ) , vbl (Out) ,spsym( ) ) , spsyml 
) ) , spsym ( . ) , atm ( end ) , atm I and_c ) , spsym ( . ) ] , spsym I < ) , _6  0  0 
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(3828)  19  Fail:  c( [spsymt/ 
m(  ) )  , spsyml , )  ,spsym(  (  )  , spsyml 
spsyml  :  )  ,vbl(To_meth)  , spsyml  ( 
) ) , spsyml . ) ,atm(end) ,atm(and_ 
0) 


(3829)  19  Call:  c([spsym(/\ 
m( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : 
spsyml : ) , vbl ( To_meth ) , spsyml ( ) 
) ) , spsyml . ) ,atm(end) ,atm(and_c 
0) 


(3829)  19  Fail:  c([spsym(/\ 
m( ) ) , spsymt , ) , spsymt ( ) ,spsym( : 
spsym( : ) ,vbl(Tc_meth) ,spsym( ( ) 
) ) , spsymt . ) ,atm(end) ,atm(and_c 
0) 


(3830)  19  Call:  c([spsym(A 
m( ) ) , spsymt , ) , spsymt ( ) , spsymt  : 
spsymt : ) ,vbl(To_meth) , spsymt ( ) 
) ) , spsymt  .  )  ,atm(end)  ,atm(and_c 
nn  i 


00) 


(3830)  19  Fail:  c( [spsymt A 
m( ) ) , spsymt , ) ,spsym( ( ) , spsymt : 
spsyml : )  .vbKTo  meth)  .spsvmf  (  ) 
)) 

00 


( ) ) , spsyml , ) ,spsym( ( ) , spsymt : 
psym( : ) ,vbl(Tc_meth) ,spsym( ( ) 
) , spsyml . ) ,atm(end) ,atm(and_c 
3) 


(3831)  19  Call:  c( [spsyml A 
m( ) ) , spsyml , ) , spsyml ( ), spsymt : 
spsymt : ) ,vbl(To_meth) , spsymt ( ) 
) ) , spsymt . ) ,atm(end) ,atm(and_c 
00) 

(3831)  19  Fail:  c([spsym(/\ 
m( ) ) , spsyml , ) , spsyml ( ) ,spsym( : 


, spsymt : ) , vbl (Temp) ,spsy 
, vbl ( To_inst ) , spsym ( <  < ) , 
vbl(Out) , spsymt ) ) , spsymt 
, spsyml . ) ], spsym (<) ,_600 


, spsymt : ) , vbl (Temp) ,spsy 
, vbl ( To_inst ) , spsym ( <  < ) , 
vbl (Out) , spsyml ) ) ,spsym( 
, spsyml . ) ] , spsymt  >) ,_600 


, spsym ( : ) , vbl ( Temp ) , spsy 
,vbl(To_inst) , spsymt  <<) , 
vbl(Out) , spsyml ) ) , spsyml 
, spsyml . ) ],spsym(>),_600 


, spsyml : ) , vbl (Temp) ,spsy 
, vbl ( To_inst ) , spsym ( <  < ) , 
vbl (Out) ,spsym( ) ) , spsymt 
, spsyml . ) ] , spsymt =<) ,_60 


, spsym ( : ) , vbl ( Temp ) , spsy 
,vbl(To_inst) , spsyml <<) , 
vbl(Out) , spsyml ) ) , spsyml 
, spsyml . ) ] ,spsym(=<) ,_60 


, spsymt : ) , vbl (Temp) ,spsy 
, vbl ( To_inst ) , spsym ( <  < ) , 
vbl(Out) , spsymt ) ) , spsyml 
, spsyml . ) ] , spsyml >=) ,_60 


, spsyml : ) , vbl (Temp) ,spsy 
,vbl(Tc_inst) , spsymt <<) , 
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spsym( : ) , vbl(Tc_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) , spsyml 
) ) , spsyml . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym(>=) ,  60 
00) 


(3832)  19  Call:  c( [spsyml A) , spsyml :) ,vbl(Temp) ,spsy 
m( ) ) , spsyml , ) ,spsym( ( ) , spsyml : ) ,vbl(To_inst) ,spsym(<<) , 
spsyml : ),vbl(To_meth) , spsyml ( ) ,vbl(Out) ,spsym( ) ) ,spsym( 
) ),spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym(+) ,  600 
0) 

(3832)  19  Fail:  c( [spsyml A ) ,spsym( :) ,vbl(Temp) ,spsy 
m( ) ) , spsyml , ) ,spsym( ( ) ,spsym( : ) ,vbl(Tc_inst) ,spsym(<<) , 
spsyraf  : )  ,vbl(To_meth) , spsyml  (  )  ,vbl(Out)  ,spsym( ) )  , spsyml 
) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ,spsym(+) ,  600 
0) 

(3833)  19  Call:  c( [spsym( /\ ) ,spsym( : ) ,vbl(Temp) ,spsy 
m( ) ) , spsyml , ), spsyml ( ) ,spsym( : ) ,vbl(To_inst) , spsyml <<) , 
spsyml : ) ,vbl(Tc_meth) , spsyml ( ) ,vbl(Out) , spsyml ) ) ,spsym( 
) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ,spsym(-) ,  600 
0) 


(3834)  19  Exit:  c( [spsyml A ) , spsyml :) ,vbl(Temp) ,spsy 
ml  ) ), spsyml , ) , spsyml  (  ) , spsyml : )  ,vbl(To_inst)  ,spsym(<<) , 
spsyml : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) , spsyml ) ) , spsyml 
) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ,spsym(/\) , [sp 
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sym( : ) ,vbl(Temp) ,spsym( ) ),spsym( , ) ,spsym( ( ) ,spsym(:),vb 
l(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl 
(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,sp 
sym( . ) ] ) 

(3814)  18  Exit:  binop( A, [spsym( /\ ) ,spsym( : ) ,vbl(Tem 
p) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sps 
ym(<<) , spsym ( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym(  ) )  , spsym (  . )  ,atm(end)  ,atm(and_c)  ,spsym(  . )  ] ,  [spsym 
( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(T 
o_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Ou 
t) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) , spsym 
l.lll 


(3835)  18  Call:  term(_6001, [spsym( : ) ,vbl(Temp) , spsym 
(  ) ) ,spsym( , ) ,spsym( ( ) , spsym ( : ) ,vbl(To_inst) ,spsym(<<) ,s 
psym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_5896) 


0  Call:  c( [spsym( : ) ,vbl(Temp) ,spsym( ) ) , spsym 
v ,  i  ,Bpsy»i\  i  )  ,spsym(  : )  ,vbl(To_inst)  ,spsym(  <<  )  ,spsym( : )  ,v 
bl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . 
) ,atm(end) ,atm(and_c) ,spsym( . ) ],atm(_6048) ,_516793) 


(3837)  20 
( ,) ,spsym( ( 


(3837) 
( , ) ,spsym( 
bl ( To_meth 
)  ,  atm  ( end ) 


(3836)  19  Back  to:  pred(_6001, [spsyml : ) ,vbl(Temp 
sym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsyi 
) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,s 
m( ) ) , spsym ( . ) , atm (end) ,atm(and_c) , spsym ( . ) ] ,_5896) 
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(3836)  19  Fail:  pred(_6001, [spsym( : ) ,vbl(Temp) ,spsym 
(  )  )  ,spsym(  , )  ,spsym(  ( )  ,spsym(  : )  ,vbl(Tc_inst)  ,spsym(<<)  ,s 
psym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ],_5896) 

(3838)  19  Call:  const(_6001, [spsym( : ) , vbl(Temp) ,spsy 
m( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym( <<) , 
spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( 
) ) ,spsym( . ) ,atm(end) , atm(and_c) ,spsym( . ) ] ,_5896) 

(3839)  20  Call:  c( [spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym 
(  , )  ,spsym(  ( )  ,spsym( : )  ,vbl(To_inst)  ,spsym(<<)  ,spsym( : )  ,v 
bl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym(  . 
),atm(end) ,atm(and_c) ,spsym( . ) ] ,num(_6051) ,_5896) 

(3839)  20  Fail:  c( [spsym( : ) , vbl(Temp) ,spsym( ) ) ,spsym 
( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,v 
bl(To_meth),spsym(  ( )  ,vbl(Out)  ,spsym( ) )  ,spsym(  )),spsym(  . 
),atm(end) ,atm(and_c) ,spsym( . ) ] ,num(_6051) ,_5896) 

(3840)  20  Call:  c( [spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym 
( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym( <<) ,spsym( : ) ,v 
bl(To_meth),spsym(  (  )  ,vbl(Out)  ,spsym( ) )  ,spsym( ) )  ,spsym(  . 
),atm(end) ,atm(and_c) ,spsym( . ) ] ,atm(_6051) ,_5896) 

(3840)  20  Fail:  c(  [spsym(  :  )  ,vbl(Temp)  ,spsym(  )  )  ,spsym 

(,),spsym( (),spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,v 

V1i?£r!r^)  iSRT^i  (  '  {VbKOut)    spsymf  )  )    spsymf  )  )  ,spsym(  . 
),atmTend),atm(and_c),spsYm( . ) ] ,atm(_6051) ,_5896) 

(3841)  20  Call:  c( [spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym 
( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym( <<) ,spsym( : ) ,v 
bl(To_meth),spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . 
) ,atm(end) ,atm(and_c) ,spsym( . ) ],spsym(") ,_516802) 
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(3841)  20  Fail:  c( [spsym( : ) , vbl(Temp) ,spsym( ) ) ,spsym 
( ,) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ),v 
bl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . 
) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym(") ,_516802) 

(3838)  19  Back  to:  const(_6001, [spsym( : ) , vbl(Temp) ,s 
psym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(< 
<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,sps 
ym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_5896) 

(3842)  20  Call:  c( [ spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym 
( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym(  : )  ,v 
bl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . 
) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym(_6051) ,_516802) 


(3843)  20  Fail:  c( [vbl(Temp) ,spsym( ) ) ,spsym( , ) ,spsym 
( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_met 
h)  ,spsym(  (  )  ,vbl(Out)  ,spsym(  ) )  ,spsym(  ) )  ,spsym(  . )  ,atm(end 
) ,atm(and_c) ,spsym( . ) ] ,qatom(_6052) ,_516803) 

(3842)  20  Back  to:  c( [spsym( : ) ,vbl(Temp) ,spsym( ) ) ,sp 
sym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym( <<) ,spsym( : 
) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsy 
m( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym(_6051)  ,_516802 
) 
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(3838)  19  Back  to:  const(_6001, [spsym( : ) ,vbl(Temp) ,s 
psym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(< 
<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,sps 
ym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_5896) 

(3838)  19  Fail:  const(_6001, [spsym( : ) ,vbl(Temp) ,spsy 
m( ) )  ,spsym( , )  ,spsym(  (  )  ,spsym( :  )  ,vbl(To_inst)  ,spsym(<<) , 
spsym( : ) , vbl(To_raeth) ,spsym( ( ) , vbl ( Out ), spsym ( ) ) ,spsym( 
) ),spsym( . ),atm(end),atm(and_c) ,spsym( . ) ],_5896) 

(3844)  19  Call:  variable (_6001, [spsymf :) ,vbl( Temp) ,s 
psym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(< 
<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,sps 
ym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_5896) 

(3845)  20  Call:  c(  [spsym( : ) , vbl(Temp) ,spsym( ) ) ,spsym 
( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,v 
bl  ( Tojneth )  ^psymU^vbl  (Out),  spsym  (  )),spsym()  )  ,spsym(  . 
) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,vbl(_6055) ,_5896) 

(3845)  20  Fail:  c ( [ sps ym ( : ) , vbl ( Temp ) , spsym ( ) ) , spsym 
( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,v 
bl(To_meth) , spsym ( ( ) , vbl ( Out ) , spsym ( ) ) ,spsym( ) ) ,spsym( . 
) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,vbl(_6055) ,_5896) 


177 


APPENDIX  I   TRACE  OF  CLASS  DEFINITION:   "class  and_c" 

[ spsym ( : ) , vbl ( Temp ) , spsy 
, vbl ( To_inst ) , spsym I  <  < ) , 
, ,vbl(Out) ,spsym( ) ) ,spsym( 
l_c),spsym(.)],_5896) 

(3847)  20  Call:  spvar access! :, [spsym( :) ,vbl(Temp) ,sp 
sym( ) ) , spsyml , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<< 
) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsy 
m( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( .)],_6062) 

(3848)  21  Call:  c( [spsyml : ) ,vbl(Temp) ,spsym( ) ) , spsym 
( , ) ,spsym( ( ) , spsyml : ) ,vbl(To_inst) ,spsym(<<) , spsyml : ) ,v 
bl(To_meth) , spsyml ( ) ,vbl(Out) , spsyml ) ) , spsyml ) ) , spsyml . 
) ,atm(end) ,atm(and_c) , spsyml . ) ], spsyml : ) ,_6062) 

(3848)  21  Exit:  c( [spsyml :) ,vbl(Temp) , spsyml )) , spsym 
I , ) , spsyml ( ) , spsyml : ) , vbl(To_inst) ,spsym(<<) , spsyml : ) ,v 
bl(To_meth) , spsyml I ) ,vbl(Out) , spsyml ) ) , spsyml ) ) , spsyml . 
) ,atm(end) ,atm(and_c) , spsyml . ) ], spsyml : ) , [vbl(Temp) ,sps 
yml ) ), spsyml , ) , spsyml  (  ) , spsyml : )  ,vbl(Tc_inst)  ,spsym(<<) 
, spsyml : ) ,vbl(To_meth) , spsyml ( ) , vbl ( Out ), spsym I ) ) , spsym 
( ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ) 


get_ivar(_Instance,  (3850)  20  Call:  variable! [_6063] , 
[vbl(Temp) , spsyml ) ) , spsyml , ) , spsyml ( ) , spsyml : ) ,vbl(To_i 
nst) ,spsym(<<) , spsyml : ) ,vbl(To_meth) , spsyml ( ) ,vbl(Out) , 
spsyml ) ) , spsyml ) ) .spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) 
],_5896) 

(3851)  21  Call:  c( [vbl(Temp) , spsyml ) ) , spsyml , ) , spsym 
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( ( ),spsym( : 
h) ,spsym( ( ) 
) ,atm(and_c 


) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_met 
,vbl(Out) ,spsym( ) ) ,spsym( ) ) , spsymt . ) ,atm(end 
),spsym( .)],vbl(_6063),_5896) 


(3850)  20  Exit:  variable! [Temp] , [vbl( Temp) ,spsym( )) , 
spsymt  , )  ,spsym(  ( )  ,spsym( : )  ,vbl(To_inst)  ,spsym(<<)  ,spsym 
( : ),vbl(To_meth) , spsymt ( ) ,vbl(Out) ,spsym( ) ) ,spsym(  ) ) ,sp 
sym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , [spsym( ) ) , spsymt , ) 
,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl( 
To_meth),spsym((),vbl(Out), spsymt ) ), spsymt ) ) , spsymt . ) ,a 
tm(end) ,atm(and_c) , spsymt . ) ] ) 

(3852)  20  Call:  lookup( vbl(Temp) ,_6059) 

(3853)  21  Call:  symtab( vbl(Temp) ,_6059) 

(3853)  21  Fail:  symtab( vbl(Temp) ,_6059) 

(3854)  21  Call:  anon(_6059) 

(3855)  22  Call:  anonvar (_6121) 
(3855)  22  Fail:  anonvar ( _6 1 2 1 ) 
(3854)  21  Back  to:  anon(  6059) 


179 


APPENDIX  I   TRACE  OF  CLASS  DEFINITION:   "class  and_c" 

(3856)  22  Call:  name( 0, [_6121] ) 

(3856)  22  Exit:  name(0,[48]) 

(3857)  22  Call:  assert (anonvar ( 48) ) 

(3857)  22  Exit:  assert (anonvar ( 48) ) 
(3854)  21  Exit:  anon(_0) 

(3858)  21  Call:  assert! symtab(vbl( Temp) ,_0) ) 
(3858)  21  Exit:  assert! symtabl vbl(Temp) ,_0) ) 
(3852)  20  Exit:  lookup! vbl( Temp) ,_0) 


sym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<< 
) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsy 
m( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ) 

(3835)  18  Exit:  term( [_0] , [spsym( : ) ,vbl(Temp) ,spsym( 
) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,sp 
sym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) 
,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , [spsymj ) ) ,spsym 
( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,v 
bl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . 
) ,atm(end) ,atm(and_c) ,spsym( . ) ] ) 

(3863)  18  Call:  append  ( [X] ,  [  ,A,  ],_6002) 
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(3864)  19  Call:  append ([],[  ,/\,  ],_6160) 

(3864)  19  Exit:  append( [ ] , [  ,/\,    ],[  ,/\,  ]) 
(3863)  18  Exit:  appendf [X] , [  ,/\,  ] , [X,  ,/\,  ]) 

(3865)  18  Call:  append( [X,  ,/\,  ] , [_0] ,_5895) 

(3866)  19  Call:  appendf [  ,/\,  ] , [_0] ,_6167) 

(3867)  20  Call:  append([/\,  ] , [_0] ,_6172) 

(3868)  21  Call:  appendf [  ] , [_0] ,_6179) 

(3869)  22  Call:  append! [], [_0] ,_6186 ) 
(3869)  22  Exit:  append( [] , [_0] , [_0] ) 
(3868)  21  Exit:  append ( [  ],[_0],[  ,_0]) 
(3867)  20  Exit:  appendf [A,  ],[_0],[/\,  ,_0]) 
(3866)  19  Exit:  appendf [  ,/\,  ],[_0],[  ,/\,  ,_0]) 
(3865)  18  Exit:  append! [X,  ,/\,  ],[_0],[X,  ,/\,  ,_0] 


(3813)  17  Exit:  restexpf [X] , [X,  ,A,  ,_0] , [spsymf /\) 
, spsymf : ) ,vbl(Terap) , spsymf ) ), spsymf , ), spsymf ( ), spsymf : ) 
,vbl(To_inst) ,spsym(<<),spsym( : ) ,vbl(To_meth) , spsymf ( ) , 
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vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym(  . )  ] ,  [spsymi  ) )  , spsymi  , )  , spsymi  (  )  , spsymi :  )  ,vbl(To_ 
inst) ,spsym(<<) , spsymi : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) 
,spsym(  ) ) , spsymi  )  )  , spsymi .  )  ,atm(end)  ,atm(and_c)  ,spsym(  . 
)]) 


(3870)  16  Call:  c( [spsym( ) ) ,spsym( , ) ,spsym( ( ) , spsymi 
: ) ,vbl(To_inst) , spsymi <<) ,spsym( : ) , vbl ( To_meth ) , spsymi ( 
) ,vbl(Out) , spsymi ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,atm(and_ 
c), spsym(. )],spsym() ),_5799) 


]) 


(3871)  16  Call:  append!  [  I  ],  [X,  ,/\,  ,_0],_5897) 

(3872)  17  Call:  append! [], [X,  ,/\,  ,_0],_6209) 
(3872)  17  Exit:  append! [], [X,  ,/\,  ,_0],[X,  ,/\,  ,_0 


(3871)  16  Exit:  append) [(], [X,  ,/\,  ,_0],[(,X,  ,/\, 
,_0]) 
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(3873)  16  Call:  append( [ ( ,X,  ,/\,  ,_0] , [ ) ] ,_5860) 

(3874)  17  Call:  append! [X,  ,/\,  ,_0] , [ ) ] ,_6214) 

(3875)  18  Call:  append! [  ,/\,  ,_0 ] , [ ) ] ,_6221) 

(3876)  19  Call:  append([/\,  ,_0] , [ ) ] ,_6226) 

(3877)  20  Call:  append! [  ,_0] , [ ) ] ,_6231) 

(3878)  21  Call:  append( [_0 ] , [ ) ] ,_6236) 

(3879)  22  Call:  append( [],[)] ,_6241) 
(3879)  22  Exit:  appendt [],[)],[)]  ) 
(3878)  21  Exit:  append! [_0] ,[)], [_0, )] ) 
(3877)  20  Exit:  append! [  ,_0],[)],[  ,_0,)]) 
(3876)  19  Exit:  append! [A,  ,_0 ],[)],[ /\,  ,_0,)]) 
(3875)  18  Exit:  append! [  ,/\,  ,_0],[)],[  ,/\,  ,_0,)] 


(3874)  17  Exit:  append! [X,  ,A,  ,_0],[)],[X,  ,/\,  ,_ 
0,)]) 


(3873)  16  Exit:  append) [( ,X,  ,/\,  ,_0] ,[)],[( ,X,  ,A 

183 


APPENDIX  I   TRACE  OF  CLASS  DEFINITION:   "class  and_c" 
,  ,_0,)]) 

(3763)  15  Exit:  term( [ ( ,X,  ,/\,  ,_0, ) ] , [spsym! ( ) ,vbl 
(X)  ,spsym(/\)  , spsym!  : )  ,vbl(Temp)  ,spsym( ) )  ,spsym(  , )  ,spsy 
ra( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) , spsym! : ) ,vbl(To_me 
th) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) , spsym! ) ) , spsym! . ) ,atm(en 
d) ,atm(and_c) ,spsym( . ) ] , [spsym! , ) , spsym! ( ) , spsym! : ) ,vbl 
(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , spsymi ( ) ,vbl( 
Out) , spsymi ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,atm(and_c) ,sps 
ym(.)l) 

(3880)  15  Call:  append ([ Out ], [  ,is,  ],_5861) 

(3881)  16  Call:  append ([],[  ,is,  ],_6253) 
(3881)  16  Exit:  append! [], [  ,is,  ],[  ,is,  ]) 
(3880)  15  Exit:  append ([ Out ], [  ,is,  ],[Out,  ,is,  ]) 


(3882)  15  Call:  append! [Out,  ,is,  ],[(,X,  ,/\,  ,_0,! 
],  5797) 


(3883)  16  Call:  append! [  ,is,  ] , [ ( ,X,  ,/\,  ,_0,)],_6 
260) 


(3884)  17  Call:  append! [is,  ] , [ ( ,X,  ,/\,  ,_0,)],_626 
5) 


(3885)  18  Call:  append! [  ],[(,X,  ,/\,  ,_0, ) ] ,_6272) 

(3886)  19  Call:  append! [],[( ,X,  ,/\,  ,_0, ) ] ,_6279 ) 
(3886)  19  Exit:  append! [],[( ,X,  ,/\,  ,_0,)],[(,X,  ,/ 
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\,  ,_0,)]) 


(3885)  18  Exit:  append ( [  ],[(,X,  ,/\,  ,  0,)],[  ,  (  ,X, 
,/\,  ,_0,)]) 


(3884)  17  Exit:  append([is,  ],[(,X,  ,/\,  ,  0,)],[is, 
,(,X,  ,/\,  ,_0,)]) 


(3883)  16  Exit:  append! [  ,is,  ] , [ ( ,X,  ,/\,    ,    0,)],[ 
,is,  ,(,X,  ,/\,  ,_0,)]) 


(3882)  15  Exit:  append) [Out,  ,is,  ],[(,X,  ,/\,    ,  0,) 
],[Out,  ,is,  ,(,X,  ,/\,  ,_0,)]) 

(3733)  14  Exit:  restexp( [Out] , [Out,  ,is,  , ( ,X,  ,/\, 
,_0, ) ] , [atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl( 
Temp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) , 
spsym(<<),spsym( : ) ,vbl(To_meth) , spsym( ( ) ,vbl(Out) ,spsym 
( ) ) ,spsym(  ) ) ,spsym( . ) ,atm(end) ,atm(  and_c)  ,spsym( . ) ] , [sp 
sym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym( <<) ,spsym( : 
)  ,vbl(To_meth)  ,spsyni(  (  )  ,vbl(Out)  ,spsym( ) )  ,spsym( ) )  ,spsy 
m( .),atm(end) ,atm(and_c) ,spsym( . ) ]) 


payim^;  ,  5>psynii  :  ) ,  vD±ixo_metn)  ,spsym(  (  )  ,vbl(Out)  ,spsym( 
) )  ,spsym( ) )  ,spsym( . )  ,atm(end)  ,atm(and_c)  ,spsyin(  . )  ] ,  [sps 
ym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) 
,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( )),spsym( ) ) ,spsym 
( . ) ,atm(end) ,atra(and_c) ,spsym( . ) ] ) 

(3887)  13  Call:  writestr ( [Out,  ,is,  , ( ,X,  ,/\,  ,_0,) 

Out    (3889)  14  Call:  writestr([  ,is,  , ( ,X,  ,/\,  ,_0,)] 
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) 

(3891)  15  Call:  writestr ( [is,  ,(,X,  ,/\,  ,_0,)]) 
is    (3893)  16  Call:  writestr([  ,  ( ,X,  ,A,  ,_0,)]) 

(3895)  17  Call:  writestr( [ ( ,X,  ,/\,  ,_0,)]) 
(    (3897)  18  Call:  writestr ( [X,  ,/\,  ,_0,)]) 
X    (3899)  19  Call:  writestr! [  ,/\,  ,_0,)]) 

(3901)  20  Call:  writestr ( [/\,  ,_0,)]) 
A   (3903)  21  Call:  writestr! [  ,_0,)]) 

(3905)  22  Call:  writestr ( [_0, )] ) 
_0    (3907)  23  Call:  writestr ([)] ) 
)    (3909)  24  Call:  writestr([]) 
(3909)  24  Exit:  writestr([]) 
(3907)  23  Exit:  writestr ([)] ) 
(3905)  22  Exit:  writestr ( [_0, )] ) 
(3903)  21  Exit:  writestr([  ,_0,)]) 
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(3901)  20  Exit:  writestr ( [ A,  ,_0,)]) 

(3899)  19  Exit:  writestr ( [  ,/\,  ,_0,)]) 

(3897)  18  Exit:  writestr([X,  ,A,  ,_0,)]) 

(3895)  17  Exit:  writestr ([( ,X,  ,/\,  ,_0,)]) 

(3893)  16  Exit:  writestr!  [  ,  (  ,X,  ,A,  ,_0,)]) 

(3891)  15  Exit:  writestr ( [is,  ,(,X,  ,/\,  ,_0,)]) 

(3889)  14  Exit:  writestr([  ,is,  ,(,X,  ,/\,  ,_0,)]) 

(3887)  13  Exit:  writestr ( [Out,  ,is,  , ( ,X,  ,/\,  ,_0,) 
]) 


(3699)  12  Exit:  subgoall [vbl(Out) ,atm( is) , spsymi () ,v 
bl(X) ,  spsymi  A) ,spsym( : ) ,vbl(Temp) , spsymi ) ) ,spsym(  , ) ,sp 
sym( ( ) , spsymi : ) ,vbl(To_inst) , spsymi <<) , spsymi : ) ,vbl(To_ 
meth) , spsymi ( ) ,vbl(Out) , spsymi ) ) , spsymi ) ) , spsymi . ) ,atm( 
end) ,atm(and_c) , spsymi . ) ] , [spsymi , ) , spsymi ( ) , spsymi  : ) ,v 
bl(To_inst) , spsym( <<) , spsymi : ) ,vbl(To_meth) ,spsym( ( ) ,vb 
l(Out) , spsymi ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,atm(and_c) ,s 
psyml . ) ] ) 


(3910)  12  Call:  moresubgoals ( [ spsymi ,) , spsymi () ,spsy 
ml : ) ,vbl(To_inst) , spsymi <<) , spsymi : ) ,vbl(To_meth) ,spsym 
( ( ) ,vbl(Out) ,spsym( ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,atm(an 
d_o), spsymi . ) ] ,_516436) 


(3911)  13  Call:  c( [spsymi , ) , spsymi ( ) , spsymi : ) ,vbl(To 
_inst) , spsymi <<) , spsymi : ) ,vbliTo_meth) , spsymi ( ) ,vbl(Out 
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) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( 

(3911)  13  Exit:  c(  [spsym(  ,  )  ,spsym(  (  )  ,spsym(  :  )  , vbl(To 
_inst) ,spsym(<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out 
) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( 
spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( 
) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ) 

,  (3913)  13  Call:  subgoallist( [spsym( ( ) ,spsym( : ) ,vbl( 
To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(0 
ut) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsy 
m(.)],_6305) 

(3914)  14  Call:  subgoal( [spsym( ( ) ,spsym( : ) ,vbl(To_in 
st) ,spsym(<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ),vbl(Out) ,s 
psym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) 1 
,_517388) 

(3915)  15  Call:  exp(_517399, [spsym( ( ) ,spsym( : ) , vbl(T 
o_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Ou 
t) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) .spsym 
(.)],_517388)  - 

(3916)  16  Call:  unop(_6332, [spsym( ( ) ,spsym( : ) ,vbl(To 
_inst)  ,spsyin(<<)  ,spsym(  : )  ,vbl(To_meth)  ,spsym(  ( )  ,vbl(Out 
),spsym( ) ) ,spsym( ) ),spsym( . ) ,atm(end) ,atm(and_c) , spsym ( 

(3917)  17  Call:  c(  [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) , vbl( Out) , spsym (  ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . )], spsym 
( : -) ,_6333 ) 

(3917)  17  Fail:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) ,vbl(To_meth) , spsym ( ( ) ,vbl(Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , spsym 
( : -) ,_6333 ) 
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(3918)  17  Call:  c( [spsym( ( ) ,spsym( : ) , vbl(To_inst) ,sp 
sym(<<)  ,spsym(  : )  ,vbl(Tc_meth)  ,spsym(  ( )  ,vbl(Out)  ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atra(end) ,atm(and  c) ,spsym( . ) ] .spsym 
(?-),_6333) 

, vbl ( To_inst ) , sp 

vbl(Out) , spsym ( ) 

spsym  (  . )  ] ,  spsym 

(3919)  17  Call:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,atm(n 
ot),_6333) 

(3919)  17  Fail:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ),vbl(Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] ,atm  n 
ot),_6333) 

(3920)  17  Call:  c( [spsym( ( ) ,spsym( : ) , vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] , spsym 
(\+),_6333) 

(3920)  17  Fail:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) ,vbl(Tc_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) 1. spsym 
\+) .  6333) 


(\+),  6333) 


(3921)  17  Call:  c( [spsym( ( ) ,spsym( : ) , vbl(To_inst) ,sp 
KvhiiT^  m0fhi  =~="m' ( ) ,vbl(Out) ,spsym( * 
l_c)  ,spsym(  . )  ]  ,atm(: 


sym(<<) ,spsym( : ) , vbl ( To_meth ), spsym ( ( ) , vbl ( Out ), spsym  ( ) 
) ,spsym( ) ),spsym( . ) ,atm(end) ,atm(and 


py),_6333: 

(3921)  17  Fail:  c( [spsymf ( ) ,spsym( : ) , vbl(To_inst) ,sp 
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sym(<<) ,spsym( : ) ,vbl(To_raeth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,atm(s 
py),_6333) 


(3922)  17  Fail:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) , spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) ,  spsymi ) ) , spsymi . ) ,atm(end) , atm(and_c) , spsymi . ) ] ,atm(n 
ospy) ,_6333) 

(3916)  16  Fail:  unop(_6332, [spsym( ( ) ,spsym( : ) ,vbl(To 
_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , spsymi ( ) ,vbl(Out 
) ,spsym( ) ) , spsymi ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( 


(3924)  17  Call:  receiver (_517437, [spsym( () ,spsym( :) , 
vbl ( To_inst ) ,spsym( <<) , spsymi : ) ,vbl(To_meth) ,spsym( ( ) ,v 
bl(Out) ,spsym( ) ) , spsymi ) ) ,spsym( . ) ,atm(end) ,atm(and_c) , 
spsym( .) ],_517438) 

(3925)  18  Call:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym( <<) ,spsym( : ) ,vbl(To_raeth) ,spsym( ( ) , vbl (Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,atm(_ 
6353),_6352) 

, vbl ( To_inst ) , sp 

vbl ( Out ) , spsym ( ) 

spsym(  .  )  ]  ,atm(_ 
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(3926)  18  Call:  variable (_6 3 50 ,  [spsym(  ( )  ,spsym(  : )  ,vb 
l(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl 
(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,sp 
sym(.)],_6352) 

(3927)  19  Call:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,vbl(_ 
6362),_6352) 

(3927)  19  Fail:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . )] ,vbl(_ 
6362),_6352) 

(3926)  18  Fail:  variable! _6 3 50, [spsym( () ,spsym( :) ,vb 
l(To_inst)  ,spsym(<<)  ,spsym(  : )  ,vbl(To_meth)  ,spsym(  ( )  ,vbl 
(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,sp 
sym(.)],_6352) 


(3929)  19  Call:  spvaraccessl : , [spsym( ( ) ,spsym( : ) , vbl 
(To_inst) ,spsym(<< ) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl( 
Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,sps 
ym(.)],_6365) 

(3930)  20  Call:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym( <<) ,spsym( : ) , vbl ( To_meth ) ,spsym( ( ) , vbl (Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym 
(:),_6365) 
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(3930)  20  Fail:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) , spsymt : ) ,vbl(To_meth) , spsymt ( ) ,vbl(Out) ,spsym( ) 
)  ,spsym(  ) )  ,spsyn\(  . )  ,atm(end) ,atm(and_c)  ,spsyra(  .  )  ]  ,spsym 
(:),_6365) 

(3929)  19  Fail:  spvaraccess( : , [spsymt ( ) ,spsym(  : ) ,vbl 
(To_inst) ,spsym(<<) , spsymt : ) ,vbl(To_meth) ,spsym( ( ) ,vbl( 
Out) , spsymt  ) ) , spsymt  ) ) , spsymt  .  )  ,atm(end)  ,atm(and_c)  ,sps 
ym(.)],_6365) 

(3931)  19  Call:  spvaraccesst ::, [spsymt () , spsymt :) ,vb 
l(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) , spsymt ( ) ,vbl 
(Out) , spsymt ) ) , spsymt ) ) , spsymt . ) ,atm(end) ,atm(and_c) ,sp 
sym(.)],_6367) 

(3932)  20  Call:  c( [spsymt ( ) , spsymt : ) ,vbl(Tc_inst) ,sp 
sym(<<) , spsymt : ) ,vbl(Tc_meth) , spsymt ( ) ,vbl(Out) , spsymt ) 
) , spsymt ) ) , spsymt . ) ,atm(end) ,atm(and_c) , spsymt . ) ],spsym 
(::),  6367) 


(3931)  19  Fail:  spvaraccesst ::, [spsymt () ,spsym( :) ,vb 
l(To_inst) ,spsym(<<) , spsymt : ) ,vbl(To_meth) , spsymt ( ) ,vbl 
(Out) , spsymt ) ) , spsymt ) ) , spsymt . ) ,atm(end) ,atm(and_c) ,sp 
sym(.)],_6367) 

(3928)  18  Fail:  spvbl(_6350, [spsymf ( ) ,spsym( : ) ,vbl(T 
o_inst) ,spsym( <<) , spsymt : ) ,vbl(To_meth) , spsymt ( ) ,vbl(Ou 
t) ,spsym( ) ) , spsymt ) ) , spsymt . ) ,atm(end) ,atm(and_c) ,spsym 
(.)],_6352) 


(3924)  17  Fail:  receiver (_517437, [spsym( () ,spsym( :) , 
vbl(To_inst) , spsymt <<)  ,  spsymt  : ) ,  vbl(To_meth) ,  spsymt  ( )  ,v 
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bl(Out)  , spsyml  ) )  ,spsym(  ) )  , spsyml  . )  ,atm(end)  ,atm(and_c) , 
spsyml . )],_517438) 

(3923)  16  Back  to:  message(_6329 , [spsyml ( ) ,spsym(  : ) , 
vbl(To_inst) ,spsym(<<) , spsyml : ) ,vbl(To_meth) , spsyml ( ) ,v 
bl(Out) , spsyml ) ) ,spsym( ) ) , spsyml . ) ,atm(end) ,atm(and_c) , 
spsyml . ) ] ,_6331) 


(3923)  16  Fail:  message(_6329 , [ spsym( ( ) , spsyml : ) ,vbl 
(To_inst) ,spsym(<<) , spsyml : ) ,vbl(To_meth) , spsyml ( ) ,vbl( 
Out) , spsyml ) ) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) ,sps 
ym(.)],_6331) 


(3933 

_inst. , 
) , spsym 


33)  16  Call:  term(_6336, [ spsym( (), spsyml :) ,vbl(To 
,spsym(<<) , spsyml : ) ,vbl(To_meth) , spsyml ( ) ,vbl(Out 
ml ) ) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml 

(3934)  17  Call:  pred(_6336 , [spsyml () , spsyml :) ,vbl(To 
_inst) ,spsym(<<) , spsyml : ) ,vbl(To_meth) , spsyml ( ) ,vbl(Out 
) , spsyml  )  ) , spsyml  ) ) , spsyml  . )  ,atm(end)  ,atm(and_c) , spsyml 

(3935)  18  Call:  c( [spsym( ( ) , spsyml : ) ,vbl(To_inst) ,sp 
sym(<<) , spsyml : ) ,vbl(To_meth) , spsyml ( ) ,vbl(Out) , spsyml ) 
) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ,atm(_ 
6374),  517462) 


(3935)  18  Fail:  c( [spsyml () , spsyml :) ,vbl(To_inst) ,sp 
sym(<<) , spsyml : ) ,vbl(To_meth) , spsyml ( ) ,vbl(Out) , spsyml ) 
) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ,atm(_ 
6374),_517462) 

(3934)  17  Back  to:  pred(_6336, [spsyml ( ) ,spsym( : ) ,vbl 
(To_inst) , spsyml <<) , spsyml : ) ,vbl(To_meth) , spsyml ( ) ,vbl( 
Out) , spsyml ) ) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) ,sps 
ym(.)],_63  37) 
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(3934)  17  Fail:  pred(_6336, [spsymf ( ) ,spsym( : ) ,vbl(To 
_inst)  ,spsym(<<)  , spsymf  : )  ,vbl(To_meth)  ,spsym(  ( )  ,vbl(Out 
) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( 

(3936)  17  Call:  const(_6336, [spsymf ( ) ,spsym( : ) ,vbl(T 
o_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Ou 
t) , spsymf ) ) , spsymf ) ) , spsymf . ) ,atm(end) ,atm(and  c) .spsym 
(.)],_6337) 


(3937)  18  Call:  c( [spsym( ( ) , spsymf : ) ,vbl(To_inst) ,sp 
sym(<<) , spsymf : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) , spsymf ) ) , spsymf . ) ,atm(end) ,atm(and  c) , spsymf . ) ],num( 
6377),_6337) 


(3937)  18  Fail:  c( [spsym( ( ) ,spsym( : ) , vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) ,spsym( ) ) , spsymf . ) ,atm(end) ,atm(and  c) ,spsym( . ) ],num( 
6377),  6337) 


(3938)  18  Fail:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) , spsymf : ) , vbl(To_meth) , spsymf ( ) ,vbl(Out) ,spsym( ) 
) ,spsym( ) ),spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) 1 ,atm( 
6377),_6337) 

(3939)  18  Call:  c( [spsym( ( ) , spsymf : ) , vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ),vbl(Out) , spsymf ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and  c) ,spsym( . ) ] .spsym 
("),_517471) 

(3939)  18  Fail:  c( [spsymf () , spsymf :) ,vbl(To_inst) ,sp 
sym(<<) , spsymf : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
)  ,spsym(  )  )  ,spsym(  . )  ,atm(end)  ,atm(and_c) , spsymf  . )  ] , spsym 
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("),_517471) 


(3936)  17  Back  to:  const(_6336, [spsym( ( ) ,spsym( : ) ,vb 
l(To_inst) , spsyml <<) ,spsym( : ) ,vbl(To_meth) , spsyml ( ) ,vbl 
(Out)  , spsyml  ) )  , spsyml  ) )  , spsyml  . )  ,atm(end)  ,atm(and_c)  ,sp 
sym(.)],_6337) 

(3940)  18  Call:  c( [spsyml ( ) ,spsym( : ) ,vbl(Tc_inst) ,sp 
sym(<<) , spsyml : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ,spsym 
(_6377),_517471) 

(3940)  18  Exit:  c(  [spsym(  (  )  ,spsym(  :  )  , vbl(To_inst)  ,sp 
sym(<<) , spsyml : ) ,vbl(To_meth) , spsyml ( ) ,vbl(Out) ,spsym( ) 
) , spsyml ) ) ,spsym( . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ,spsym 
( ( ) , [spsyml : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_me 
th) , spsyml ( ) ,vbl(Out) ,spsym( ) ) , spsyml ) ) ,spsym( . ) ,atm(en 
d ) , atm ( and_c ) , spsym ( . ) ] ) 

(3941)  18  Call:  c( [spsyml : ) ,vbl(Tc_inst) ,spsym( <<) ,s 
psym( : ) ,vbl(To_meth) , spsyml ( ) ,vbl(Out) , spsyml ) ) , spsyml ) 
) , spsyml . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,qatom(_6378) ,_ 
517472) 


(3941)  18  Fail: 
psym( : ) ,vbl(To_meth 
) , spsyml . ) jatmlend1 
517472) 


c( [spsyml : ) ,vbl(To_inst) , spsyml  <<)  ,s 
h) , spsyml I ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
.)  ,atm(and_c) , spsyml . )  ]  ,qatom(_6378) ,_ 


(3940)  18  Fail:  c( [spsyml () , spsyml :) ,vbl(To_inst) ,sp 
sym(<< ) , spsyml : ) ,vbl(To_meth) , spsyml ( ) ,vbl(Out) , spsyml ) 
) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] , spsym 
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(_6377),_517471) 

(3936)  17  Back  to:  const(_6336, [spsym( ( ) ,spsym( : ) ,vb 
l(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl 
(Out) ,spsym( ) ) ,spsym( ) ) , spsymi . ) ,atm(end) ,atm(and_c) ,sp 
sym(.)],_6337) 

(3936)  17  Fail:  const(  6336, [spsym( ( ) ,spsym(  : )  ,vbl(T 
o_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Ou 
t)  ,spsym( ) )  , spsymi  ) )  ,spsym(  . )  ,atm(end)  ,atm(and_c)  ,spsym 
(.)],_6337) 

(3942)  17  Call:  variable (_6 3 36, [spsym( ( ) ,spsym( : ) ,vb 
l(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl 
(Out)  ,spsym(  ) )  , spsymi ) )  , spsymi  . )  ,atm(end)  ,atm(and_c)  ,sp 
sym(.)],_6337) 


(3942 
KTo 
(Out") 
sym( 


3942)  17  Fail:  variable(_6336, [spsym( ( ) ,spsym( : ) ,vb 
i_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_raeth) ,spsym( ( ) ,vbl 
. ) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,sp 

.)],_6337) 


,spsym( : ) ,vbl(T 

spsym( ( ) ,vbl(Ou 

' and_c ) , spsym 
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(3945)  18  Call:  spvaraccessl : , [spsym( ( ) ,spsym( : ) ,vbl 
(To_inst) ,spsym(<<) , spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl( 
Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,sps 
ym(.)],_6388) 


(3946)  19  Call:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) , vbl ( To_meth ) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym 
(:),_ 6388) 


(3946)  19  Fail:  c( [ spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , vbl (Out) ,spsym( ) 
)  ,spsym(  )  )  ,spsym(  . )  ,atm(end)  ,atm(and_c)  ,spsym(  . )  ]  ,spsym 
(:),_6388) 


(3945)  18  Fail:  spvaraccess( : , [ spsym( ( ) ,spsym( : ) ,  vbl 
(To_inst) ,spsym(<< ) , spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl( 
Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,sps 
ym(.)],_6388) 


(3947)  18  Call:  spvaraccessf : : , [spsym( ( ) ,spsym( : ) ,vb 
l(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl 
(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,sp 
sym(.)],_6390) 


(3948)  19  Call:  c( [ spsym( ( ) ,spsym( : ) ,vbl(Tc_inst) ,sp 
sym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , vbl (Out) ,spsym( ) 
) ,spsyra( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym 
(::),  6390) 


(3948)  19  Fail:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , vbl (Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym 
(::),_6390) 

(3947)  18  Fail:  spvaraccess( : : , [spsym( ( ) ,spsym( : ) , vb 
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l(Tc_inst) ,spsym( <<) , spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl 
(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,sp 
sym( . )],_6390) 

(3944)  17  Fail:  spvbl(_6336, [spsym( ( ) ,spsym( : ) ,vbl(T 
o_inst) ,spsym( <<) ,spsym( : ) ,vbl(Tc_meth) ,spsym( ( ) ,vbl(Ou 
t)  ,spsym(  ) )  , spsymi  ) )  , spsymi  . )  ,atm(end)  ,atm(and_c)  ,spsym 
(.)],_6337) 


(3949)  17  Call:  c( [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) , spsymi ) ) , spsymi . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym 
(0.6363) 


(3950)  17  Call:  exp(_6364, [spsyra( : ) ,vbl(To_inst) ,sps 
ym(<<) ,spsym( : ) ,vbl(Tc_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsyra( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_6365) 


(3951)  18  Call:  unop(_6410, [spsym( : ) ,vbl(Tc_inst) ,sp 
sym( <<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_6411 
) 


(3952)  19  Call:  c( [spsym( : ) ,vbl(To_inst) ,spsym( <<) ,s 
psym( : ) , vbl(To_raeth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym( :-) ,_641 
1) 

(3952)  19  Fail:  c( [spsym( : ) , vbl(To_inst) ,spsym( << ) ,s 
psym( : ) ,vbl(Tc_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
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) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym( :-) ,_641 

(3953)  19  Call:  c( [spsym( : ) , vbl(To_inst) ,spsym( <<) ,s 
psym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
) ,spsym( . ) ,atm(end) , atm(and_c) , spsym( . ) ] , spsymi?-) ,_641 

(3953)  19  Fail:  c( [spsym( : ) , vbl(To_inst) ,spsym( <<) ,s 
psym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ], spsymi?-) ,_641 

(3954)  19  Call:  c( [spsym( : ) , vbl(To_inst) ,spsym( <<) ,s 
psym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
) ,spsym( . ) ,atra(end) ,atm(and_c) ,spsym( . ) ],atm(not) ,_6411 

(3954)  19  Fail:  c( [spsym( : ) , vbl ( To_inst ) ,spsym( <<) ,s 
psym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ],atm(not) ,_6411 

(3955)  19  Call:  c( [spsym( : ) , vbl(To_inst) ,spsym( <<) ,s 
psym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym(\+) ,_641 

(3955)  19  Fail:  c( [spsym( : ) ,vbl(To_inst) ,spsym( <<) ,s 
psym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym(\+) ,  641 
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(3956)  19  Fail:  c( [spsym( : ) ,vbl(To_inst) ,spsym( <<) ,s 
psym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) , spsymf ) 
)  , spsymf  . )  ,atm(end)  ,atm(and_c)  ,spsyn\(  . )  ]  ,atm(spy)  ,_6411 

) 

(3957)  19  Call:  c( [spsymf :) ,vbl(To_inst) , spsymf <<) ,s 
psyml :  )  ,vbl(To_meth)  , spsymf  (  )  ,vbl(Out)  ,spsym(  ) )  , spsymf  ) 
) , spsymf . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,atm(nospy) ,_64 
11) 


(3957)  19  Fail:  c( [spsym( : ) ,vbl(To_inst) ,spsym( <<) ,s 
psym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) , spsymf ) 
)  , spsymf . )  ,atm(end) , atm ( and_c )  ,spsym(  . )  ]  ,atm(nospy)  ,_64 
11) 

(3951)  18  Fail:  unop(_6410, [spsymf : ) ,vbl(To_inst) ,sp 
sym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) 
) , spsymf ) ) , spsymf . ) ,atm(end) ,atm(and_c) , spsymf . ) ] ,_6411 
) 


(3958)  18  Call:  message(_6364, [spsym( : ) , vbl(To_inst) 
,spsym(<<) , spsymf : ) ,vbl(To_meth) , spsymf ( ) ,vbl(Out) ,spsy 
m( ) ) , spsymf ) ) , spsymf . ) ,atm(end) ,atm(and_c) , spsymf . ) ] ,_6 
365) 


s 


(3959)  19  Call:  receiver (_517533, [spsymf :) ,vbl(To_in 
st) , spsymf <<) , spsymf : ) , vbl ( To_meth ) , spsymf ( ) ,vbl(Out) ,s 
psymf ) ) , spsymf ) ) , spsymf . ) ,atm(end) ,atm(and_c) , spsymf . ) ] 
,_517534) 


(3960)  20  Call:  c( [spsymf :) ,vbl(Tc_inst) , spsymf <<) ,s 
psymf : ) ,vbl(To_meth) , spsymf ( ) ,vbl(Out) , spsymf ) ) , spsymf ) 
) , spsymf . ) , atm (end) ,atm(and_c) , spsymf . ) ] ,atm(_6431) ,_64 
30) 
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(3960)  20  Fail:  c(  [spsym(  : ) ,  vbl(To_inst)  ,spsym(  <<)  ,s 
psym( : ) ,vbl(To_meth) ,spsyni( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
) , spsymi . ) ,atm(end) ,atm(and_c) , spsym( . ) ] , atm(_6431) ,_64 
30) 

(3961)  20  Call:  variable (_6428,  [spsym(  :  )  ,vbl(To_inst 
) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,sps 
ym( ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_ 
6430) 

(3962)  21  Call:  c( [ spsym( : ) ,vbl(To_inst) ,spsym( <<) ,s 
psym(  :  )  ,vbl(To_meth)  ,spsym(  (  )  ,vbl(Out)  ,spsym(  ) )  ,spsym( ) 
) , spsymi . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,vbl(_6440) ,_64 
30) 


(3962)  21  Fail:  c( [spsym( : ) ,vbl(Tc_inst) ,spsym( <<) ,s 
psym( : ) , vbl(Tc_meth) , spsymi ( ) ,vbl(Out) ,spsym( ) ) , spsymi ) 
) , spsymi . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,vbl(_6440) ,_64 
30) 


(3963)  20  Call:  spvbl(_6428, [spsym( : ) ,vbl(To_inst) ,s 
psym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) , spsymi 
) ) , spsymi ) ) , spsymi . ) ,atm(end) , atm(and_c) ,spsym( . ) ] ,_643 

A  \ 


0) 


(3964)  21  Call:  spvaraccess( : , [spsym( : ) ,vbl(To_inst) 
,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsy 
m( ) ) ,spsym( ) ) ,spsyra( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_6 
443) 


(3965)  22  Call:  c( [spsym( : ) , vbl(To_inst) ,spsym( <<) ,s 
psym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
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) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,spsym( : ) ,_6443 

) 


(3965)  22  Exit:  c( [spsym( : ) ,vbl(To_inst) ,spsym( <<) ,s 
psym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
)  ,spsym( . )  ,atm(end)  ,atm(and_c)  ,spsym(  . )  ]  ,spsym( :  )  ,  [vbl( 
To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(0 
ut) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)]) 


(3964)  21  Exit:  spvaraccess( : , [spsym( : ) ,vbl(To_inst) 
,spsym(<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsy 
m( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsyra( . ) ] , [v 
bl(To_inst)  , spsym(<<)  ,spsym( :  )  ,vbl(To_meth)  ,spsyn\(  ( )  ,vb 
l(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,s 
psynit  . )  ] ) 


get_ivar(_Instance,  (3967)  21  Call:  variable ( [_6444] , 
[vbl(To_inst) ,spsym( <<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) , 
vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) 
,spsym( .) ],_6430) 


(3968)  22  Call:  c( [ vbl(To_inst) ,spsym( <<) ,spsym( : ) ,v 
bl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . 
) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,vbl(_6444) ,_6430) 


(3967)  21  Exit:  variable! [To_inst] , [vbl(To_inst) ,sps 
ym(<<) ,spsym(  : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) 
,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , [spsym 
( <<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,s 
psyra( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ) 
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(3969)  21  Call:  lookup! vbl(To_inst) ,_64 40) 

(3970)  22  Call:  symtab( vbl(To_inst) ,_6440) 

(3970)  22  Fail:  symtab( vbl(To_inst) ,_6440 ) 

(3971)  22  Call:  anon(_6440) 

(3972)  23  Call:  anonvar (_6502) 

(3972)  23  Exit:  anonvar(48) 

(3973)  23  Call:  name(_,_517657) 

(3973)  23  Exit:  name(_,[95]) 

(3974)  23  Call:  _6503  is  48+1 

(3974)  23  Exit:  49  is  48+1 

(3975)  23  Call:  retract (anonvar ( 48) ) 

(3975)  23  Exit:  retract (anonvar ( 48) ) 

(3976)  23  Call:  assert (anonvar ( 49) ) 

(3976)  23  Exit:  assert (anonvar ( 49) ) 

(3977)  23  Call:  append! [95] , [49] ,_517658) 
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(3978)  24  Call:  append) [],[ 49] ,_6524) 

(3978)  24  Exit:  appendf [ ] , [ 49] , [49] ) 
(3977)  23  Exit:  appendf [95] , [49] , [95,49] ) 

(3979)  23  Call:  name(_6440, [95,49] ) 

(3979)  23  Exit:  name(_l, [95,49] ) 
(3971)  22  Exit:  anon(_l) 

(3980)  22  Call:  assert ( symtab(vbl( To_inst) ,_1) ) 
(3980)  22  Exit:  assert! symtab( vbl(To_inst) ,_1) ) 
(3969)  21  Exit:  lookup! vbl(To_inst) ,_1 ) 


'To_inst' ,_1) ,  (3963)  20  Exit:  spvbl( [_1] , [spsym( : ) ,v 
bl(To_inst) ,spsym( <<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vb 
l(Out) ,spsym( ) ) ,spsym( ) ) , spsymi . ) ,atm(end) , atm ( and_c ) ,s 
psym( . ) ] , [spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl( 
Out)  ,spsym(  ) )  , spsymi  )  )  ,spsym(  . )  ,atm(end)  ,atm(and_c)  ,sps 
ym(.)]) 


(3959)  19  Exit:  receiver ( [_1] , [spsym( :) ,vbl(To_inst) 
,spsym(<<)  ,spsym(  :  )  ,vbl(To_meth)  ,spsyn\(  (  )  ,vbl(Out)  ,spsy 
ra( ) ) , spsymi ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , [s 
psym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( 
) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ) 
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spsym(<<) ,spsym( : ) ,vbl 
' ) ) ,spsym( ) ) ,spsym(  . ) , 
535) 


(3986)  20  Call:  c( [spsym( << ) , spsym( : ) ,vbl(To_meth) ,s 
psym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,at 
Ti(and_c)  , spsym(  .  )  ]  ,spsym(  <<),_5 17535) 


(3986)  20  Exit:  c( [spsym( <<), spsymt :) ,vbl(To_meth) ,s 
psym( ( ) ,vbl(Out) ,spsym( ) ) , spsymt ) ) , spsymt . ) ,atm(end) ,at 
m(and_c) ,spsym( . ) ] , spsymt <<) , [spsymt : ) ,vbl(To_meth) ,sps 
ym( ( ) ,vbl(Out) , spsymt ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atra( 
and_c ) , spsym( . ) ] ) 


(3987)  19  Call:  mesg(_517536 , [spsymf : ) ,vbl(To_meth) , 
spsymt ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) , spsymt . ) ,atm(end) ,a 
tm(and_c) ,spsym( . ) ] ,_517537) 


(3988)  20  Call:  c( [spsymt :) , vbl(To_meth) ,spsym( () ,vb 
l(Out) , spsymt ) ) , spsymt ) ) , spsymt . ) ,atm(end) ,atm(and_c) ,s 
psymt . )],atm(_6559),_6558) 

(3988)  20  Fail:  c( [spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vb 
l(Out) , spsymt ) ) , spsymt ) ) , spsymt . ) ,atm(end) ,atm(and_c) ,s 
psymt .)],atm(_6559),_6558) 

(3989)  20  Call:  variable (_6556, [spsymt :) ,vbl(To_meth 
) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) 
,atm(and_c) ,spsym( . ) ] ,_6558) 
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(3990)  21  Call:  c( [ spsym( : ) , vbl(Tc_meth) ,spsym( ( ) ,vb 
l(Out),spsym()  )  ,spsyin(  ) )  ,spsym( . )  ,atm(end)  ,atm(  and  c),s 
psym(. )],vbl(_6568),_6558) 

(3990)  21  Fail:  c ( [ spsym ( : ) , vbl ( To_meth ) , spsym ( ( ) , vb 
l(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) , atm (end) ,atm(and  c) ,s 
psym(.)],vbl(_6568),_6558)  -   ' 

(3989)  20  Fail:  variable (_65 56, [spsym( : ) , vbl(To  meth 
) ,spsym( ( ) , vbl ( Out ) , spsym ( ) ) ,spsym( ) ) ,spsym( . ) ,atmTend) 
,atm(and_c) ,spsym( . ) ],_6558) 

(3991)  20  Call:  spvbl(_6556, [spsym( : ) , vbl (To  meth) ,s 
psym( ( ) , vbl (Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) , atmlend ) , at 
m(and_c) ,spsym( . ) ],_6558) 

(3992)  21  Call:  spvaraccess( : , [spsym( : ) , vbl (To  meth) 
,spsym( ( ) , vbl ( Out ), spsym ( ) ) ,spsym( ) ) ,spsym( . ), atmlend) , 
atm(and_c) ,spsym( . ) ] ,_6571) 

(3993)  22  Call:  c(  [spsym( : ) ,vbl(To_meth) ,spsym( ( ) , vb 
l(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) , atmlend) ,atm(and  c) ,s 
Psym( . ) ] ,spsym( : ) ,_6571) 

(3993)  22  Exit:  c( [spsym( : ) , vbl(To_meth) ,spsym( ( ) , vb 
1 ( Out ), spsym ( ) ) ,spsym( ) ) ,spsym( . ), atmlend) ,atm(and  c) ,s 
psym(  . )  ]  ,spsym( : ) ,  [ vbl ( To_meth ) , spsym ( ( ) , vbl(Out)  ,£psym 
()),spsym( )),spsym( . ) , atmlend) ,atm(and_c) ,spsym( . )  ] ) 

(3992)  21  Exit:  spvaraccess( : , f spsym( : ) , vbl (To  meth) 
,spsym( ( )  vbl ( Out ) , spsym ( ) ) ,spsym( ) )  ,spsym( .  ) , atmlend) , 
atm  and_c) , spsym ( . ) ] , [vbl(To_meth) ,spsym( ( ) , vbl (Out) ,sp 
sym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) , atm ( and_c ) , spsym ( . ) ] ) 

?e^T7^ar(-Instance'    (3995)  21  Call:  variable; [  6572], 
[ vbl ( To_meth ) , spsym ( ( ) , vbl ( Out ) , spsym ( ) )  ,spsym(  )T, spsym 
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( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_6558) 


(3996)  22  Call:  c( [ vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,sp 
syra(  ) )  ,spsym(  )  )  ,spsyin( . )  ,atm(end)  ,atm(and_c)  ,spsym( . )  ] , 
vbl(  6572),_6558) 


(3996)  22  Exit:  c( [ vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,sp 
sym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , 
vbl(To_meth) , [spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym 
( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ) 


(3995)  21  Exit:  variable! [To_meth] , [ vbl(To_meth) ,sps 
ym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm( 
and_c) ,spsym( . ) ] ,[spsyra( ( ) ,vbl(Out) ,spsyra( ) ) ,spsym( )),s 
psym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ) 


(3997)  21  Call:  lookup! vbl(To_meth) ,_6568) 

(3998)  22  Call:  symtab( vbl(To_meth) ,_6568) 

(3998)  22  Fail:  symtab( vbl(To_meth) ,_6568) 

(3999)  22  Call:  anon(_6568) 

(4000)  23  Call:  anonvar (_6630) 

(4000)  23  Exit:  anonvar (49) 

(4001)  23  Call:  name(_,_517943 ) 
(4001)  23  Exit:  name(_, [ 95] ) 
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(4002)  23  Call:  _6631  is  49+1 

(4002)  23  Exit:  50  is  49+1 

(4003)  23  Call:  retract ( anonvar( 49 ) ) 

(4003)  23  Exit:  retract (anonvar) 49 ) ) 

(4004)  23  Call:  assert! anonvar ( 50) ) 

(4004)  23  Exit:  assert (anonvar ( 50) ) 

(4005)  23  Call:  append( [95] , [50] ,_517944 ) 

(4006)  24  Call:  append( [ ] , [ 50] ,_6652) 

(4006)  24  Exit:  append( [ ] , [ 50] , [50] ) 
(4005)  23  Exit:  append! [95] , [50] , [95,50] ) 

(4007)  23  Call:  name(_6568, [95,50] ) 

(4007)  23  Exit:  name(_2, [95, 50] ) 
(3999)  22  Exit:  anon(_2) 

(4008)  22  Call:  assert (symtab(vbl(To_meth) ,_2) ) 
(4008)  22  Exit:  assert ( symtab ( vbl(To_meth) ,_2) ) 
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(3997)  21  Exit:  lookup! vbl(To_meth) ,_2) 


•To_meth' ,_2) ,  (3991)  20  Exit:  spvbl( [_2] , [spsyml : ) ,v 
bl(To_meth) , spsyml ( ) ,vbl(Out) ,spsym( ) ) , spsyml ) ) ,spsym( . 
) ,atm(end) ,atm(and_c) , spsyml . ) ] , [spsyml ( ) ,vbl(Out) ,spsy 
m( ) ) , spsyml ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ) 


(3987)  19  Exit:  mesg( [_2] , [spsyml : ) ,vbl(To_meth) ,sps 
ym( ( ) ,vbl(Out) , spsyml ) ) , spsyml ) ) , spsyml . ) ,atm(end) ,atm( 
and_c) ,spsym( . ) ],[spsym( ( ),vbl(Out) ,spsym( ) ) ,spsym( ) ) ,s 
psym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ) 


(4013)  19  Call:  args(_517538 , [spsyml ( ) ,vbl(Out) ,spsy 
m( ) ) ,spsym( ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ,_6 
365) 


(4014)  20  Call:  c( [spsym( ( ) ,vbl(Out) , spsyml ) ) , spsyml 
) )  , spsyml . )  ,atm(end)  ,atm(and_c) , spsyml .  )  ] , spsyml  (  )  ,_518 
109) 


(4014)  20  Exit:  c( [spsym( ( ) , vbl(Out) ,spsym( ) ) ,spsym( 
) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] , spsyml I ) , [vbl 
(Out) , spsyml ) ) ,spsym( ) ) , spsyml . ) ,atm(end) ,atm(and_c) ,sp 
syml . ) ] ) 


(4015)  20  Call:  term(_518110 , [vbl(Out) , spsyml  )), spsy 
ml ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ,_518111) 


(4016)  21  Call:  pred(_6684, [ vbl(Out) , spsyml ) ) , spsyml 
) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ,_6686) 


(4017)  22  Call:  c( [vbl(Out) , spsyml ) ) , spsyml ) ) , spsyml 
(4017)  22  Fail:  c( [ vbl(Out) ,spsym( ) ) , spsyml ) ) , spsyml 
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(4016)  21  Back  to:  pred(_6684, [vbl(Out) ,spsym( ) ) ,sps 
ym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_6686) 


(4016)  21  Fail:  pred(_6684, [ vbl(Out) ,spsym( ) ) ,spsyro( 
) ) , spsymi . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_6686) 


(4018)  21  Call:  const(_6684,[vbl(Out) ,spsym( ) ) ,spsym 
( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) , spsymi . ) ] ,_6686) 


(4019)  22  Call:  c( [vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 

(4019)  22  Fail:  c( [vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 

(4020)  22  Call:  c(  [ vbl(Out)  ,spsym(  ) )  ,spsym( ) )  ,spsym( 

(4020)  22  Fail:  c( [vbl(Out) ,spsym( ) ) ,spsym( ) ) , spsym( 

(4021)  22  Call:  c( [ vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 
(4021)  22  Fail:  c( [ vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 


(4018)  21  Back  to:  const(_6684, [ vbl(Out ) ,spsym( ) ) ,sp 
sym( ) )  ,spsym(  . )  ,atm(end)  ,atm(and_c)  ,spsym( . )  ]  ,_6686) 


(4022)  22  Call:  c( [ vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 
(4022)  22  Fail:  c( [ vbl(Out ) ,spsym( ) ) ,spsym( ) ) ,spsym( 


(4018)  21  Back  to:  const(_6684, [ vbl(Out) ,spsym( ) ) ,sp 
sym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_6686) 
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(4018)    21  Fail:   const(_6684, [ vbl(Out) ,spsym( ) ) ,spsym 
(  )  )  ,spsym(  .  )  ,atm(end) , atiti ( and_c )  , spsymi  . )  ]  ,_6686) 


(4023)  21  Call:  variable(_6684, [vbl(Out) ,spsym( ) ) ,sp 
sym( ) )  ,spsym(  . )  ,atm(end)  ,atm(and_c)  ,spsym(  . )  },_6686) 

(4024)  22  Call:  c( [vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 


(4024)  22  Exit:  c( [vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 
ym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ) 


(4023)  21  Exit:  variable! [Out] , [vbl(Out) ,spsym( )) ,sp 
sym( ) ) ,spsym( . ) ,atm(end) ,atmiand_c) ,spsym( . ) ] , [spsym( ) ) 
,spsym(  ) )  ,spsyn\(  . )  ,atm(end)  ,atm(and_c)  ,spsym( . )  ]) 


(4015)  20  Exit:  term( [Out] , [vbl(Out) ,spsym( ) ) ,spsym( 
) )  , spsymi  . )  ,atm(end)  ,atm(and_c)  ,spsym( . )  ] ,  [spsymi  ) )  ,sps 
ym( ) ) , spsymi . ) ,atm(end) ,atm(and_c) , spsymi . ) ] ) 


(4025)  20  Call:  rest_args(_518112, [spsym( ) ) ,spsym( ) ) 
, spsymi . ) ,atm(end) ,atm(and_c) , spsymi . ) ] ,_518113) 


(4026)  21  Call:  c( [spsym( ) ) , spsymi ) ) ,spsym( . ) ,atm(en 
d) ,atm(and_c) ,spsym( . ) ] , spsymi , ) ,_518186) 


(4026)  21  Fail:  c( [spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(en 
d) ,atm(and_c) ,spsym( . ) ] , spsymi , ) ,_518186) 


(4025)  20  Back  to:  rest_args(_518112, [spsym( ) ) ,spsym 
( ) ) , spsymi . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ,_518113) 


(4027)  21  Call:  true 
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(4027)  21  Exit:  true 


(4025)  20  Exit:  rest_args( [], [spsyml )) ,spsym( )) ,spsy 
m( . ) ,atm(end) ,atm(and_c) , spsyml . ) ] , [spsym( ) ) , spsyml ) ) ,s 
psymi . ) ,atm(end) ,atm(and_c) , spsyml . )  ] ) 


(4028)  20  Call:  c( [spsym! ) ) ,spsym( ) ) ,spsym( . ) ,atm(en 
d) ,atm(and_c) , spsyml . ) ] , spsyml ) ) ,_6365) 


(4028)  20  Exit:  c( [spsyml ) ) ,spsym( ) ) , spsyml . ) ,atm(en 
d) ,atm(and_c) , spsyml . ) ] , spsyml ) ) , [spsyml ) ) , spsyml . ) ,atm 
(end) ,atm(and_c) , spsyml  . )  ] ) 


(4029)  20  Call:  append) [Out] ,[] ,_517538) 

(4030)  21  Call:  append( [ ] , [ ] ,_6716) 
(4030)  21  Exit:  append( [],[],[] ) 
(4029)  20  Exit:  append) [Out] ,[], [Out] ) 


(4013)  19  Exit:  args( [Out] , [spsyml () ,vbl(Out) , spsyml 
) ) , spsyml ) ) , spsyml . ) , atm(end) ,atm(and_c) , spsyml . ) ] , [sps 
ymi ) ) , spsyml . ) ,atm(end) ,atm(and_c) , spsyml . ) ] ) 


(4031)  19  Call:  append! [send_mesg( [], [_2] ,_517539) 

(4032)  20  Call:  append! [], [_2] ,_6721) 
(4032)  20  Exit:  append! [], [_2] , [_2] ) 
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(4031)  19  Exit:  append! [send_mesg( [], [_2] , [send_mesg 
([,_2]) 


(4033)  19  Call:  append( [ send_mesg( [ ,_2] , [ , ] ,_517540) 

(4034)  20  Call:  append( [_2] , [ , ] ,_6726 ) 

(4035)  21  Call:  append! [],[,] ,_6733) 
(4035)  21  Exit:  append( [],[,],[,] ) 
(4034)  20  Exit:  append! [_2] ,[,], [_2, ,] ) 


(4033)  19  Exit:  append! [send_mesg( [ ,_2] ,[,], [send_me 
sg([,_2,,]) 


(4036)  19  Call:  appendf [send_mesg( [ ,_2, , ] , [_1] ,_5175 
41) 


(4037)  20  Call:  append! [_2, ,], [_1] ,_6738) 

(4038)  21  Call:  append( [ , ] , [_1] ,_6743 ) 

(4039)  22  Call:  append! [], [_1] ,_6748 ) 
(4039)  22  Exit:  append! [], [_1] , [_1] ) 
(4038)  21  Exit:  append! [,], [_1] ,[, ,_1] ) 
(4037)  20  Exit:  appendf [_2, ,], [_1 ], [_2, , ,_1] ) 
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(4036)  19  Exit:  append ( [send_mesg( [ ,_2, ,], [_1] , [send 
_mesg([,_2,,,_l]) 

(4040)  19  Call:  append! [send_mesg( [ ,_2 ,, ,_1] ,[,] ,_51 
7542) 


(4041)  20  Call:  append! [_2, , ,_1] ,[,] ,_6753 ) 

(4042)  21  Call:  append! [, ,_1] ,[,] ,_6760) 

(4043)  22  Call:  append! [_1] ,[,] ,_6765) 

(4044)  23  Call:  append! [],[,] ,_6770) 
(4044)  23  Exit:  append) [],[,],[,] ) 
(4043)  22  Exit:  append! [_1] ,[,], [_1, ,] ) 
(4042)  21  Exit:  append! [, ,_1] ,[,],[, ,_1, ,] ) 
(4041)  20  Exit:  append! [_2, , ,_1] ,[,], [_2, , ,_1 ,,] ) 


(4040)  19  Exit:  append( [send_mesg( [ ,_2, , ,_1] , [ , ] , [se 
nd_mesg( [ ,_2, , ,_!,, ] ) 


(4045)  19  Call:  appendf [send_mesg( [ ,_2, , ,_1, , ] , [Out] 
,_517543) 


(4046)  20  Call:  appendf [_2, , ,_1, ,], [Out] ,_6775 ) 
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(4047)  21  Call:  append) [, ,_1, ,], [Out] ,_6780 ) 

(4048)  22  Call:  append! [_1, ,], [Out] ,_6785 ) 

(4049)  23  Call:  append! [,], [Out] ,_6790) 

(4050)  24  Call:  appendl [ ] , [Out] ,_6795 ) 
(4050)  24  Exit:  append( [ ] , [Out] , [Out] ) 
(4049)  23  Exit:  appendl [,], [Out] ,[, ,Out] ) 
(4048)  22  Exit:  append! [_1, ,], [Out] , [_1, , , Out] ) 
(4047)  21  Exit:  append! [, ,_1, ,], [Out] ,[, ,_1, , ,Out] ) 


(4046)  20  Exit:  appendl [_2, , ,  1, ,], [Out] , [_2, , ,_1, ,  , 
Out]) 


(4045)  19  Exit:  append( [send_raesg( [ ,_2, , ,_1, , ] , [Out] 
, [send_mesg( [ ,_2, , ,_1, , ,Out] ) 

(4051)  19  Call:  appendl [send_mesg( [ ,_2, , ,_1, ,, Out] , [ 
],,op(«),)],_6364) 


(4052)  20  Call:  append( [_2, , ,_1, , ,Out] , [ ] , ,op( <<) , ) ] 
,_6800) 


(4053)  21  Call:  appendl [, ,_1, ,, Out] ,[], ,op( <<),)] ,_6 
807) 
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(4054)  22  Call:  append( [_1, , ,Out] ,[], ,op( <<),)] ,_681 
2) 

(4055)  23  Call:  append( [, ,Out] ,[], ,op( <<),)] ,_6817) 

(4056)  24  Call:  append! [Out] , [ ], ,op( <<),)] ,_6822) 

(4057)  25  Call:  append! [],[], ,op( «),)] ,_6827) 

(4057)  25  Exit:  append! [], t ], ,op( <<),)], t ], ,op( <<) , ) 
]) 

(4056)  24  Exit:  append! [Out] ,[], ,op( <<),)], [Out, ], ,o 
P(<<),)]) 


(4055)  23  Exit:  append! [, ,Out] , [], ,op( <<),)],[, ,Out, 
],,op(<<),)]) 


(4054)  22  Exit:  append! [_1, , ,Out] ,[], ,op( <<),)], [_1, 
,,Out,],,op(<<),)]) 


(4053)  21  Exit:  append! [, ,_1 ,, ,Out] ,[ 3 , ,op( <<),)],[ , 
,_l,,,Out,],,op(<<),)]) 


(4052)  20  Exit:  append! [_2, , ,_1, ,, Out] ,[], ,op( <<),) ] 
,  [_2, , ,_1, ,, Out, ], ,op( <<),)] ) 

(4051)  19  Exit:  append( [send_mesg( [ ,_2, , ,_1, , ,Out] , [ 
], ,op( <<),)], [send_mesg( [ ,_2 ,, ,_1, , ,Out, ], ,op( <<),)] ) 

(3958)  18  Exit:  message( [send_mesg( [ ,_2, , ,_1, , ,Out, ] 
, ,op(<<) , ) ] , [spsyml : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,v 
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bl(To_meth),spsym((),vbl( Out), spsymf)), spsymf  )  ), spsymf  . 
) ,atm(end) ,atm(and_c) ,spsym( . ) ] , [spsymf ) ) ,spsym( . ) ,atm( 
end) ,atm(and_c) ,spsym( . ) ]) 

(3950)  17  Exit:  exp( [send_mesg( [ ,_2, , ,_1, , ,Out, ] , ,op 
(<<),)], [spsymf : ) , vbl(To_inst) ,spsym(<<) , spsymf : ) ,vbl(T 
o_meth) ,spsym( ( ) ,vbl(Out) , spsymf ) ) , spsymf ) ) , spsymf . ) ,at 
mfend) ,atm(and_c) , spsymf . )], [spsymf ) ) , spsymf . ) ,atm(end) 
,atm(and_c) , spsymf . ) ] ) 

(4058)  17  Call:  c( [spsymf )) , spsymf .) ,atm(end) ,atm(an 
d_o) , spsymf . ) ], spsymf ) ) ,_6337) 

(4058)  17  Exit:  c( [spsym( ) ) , spsymf . ) ,atm(end) ,atm(an 
d_c), spsymf . ) ] , spsymf )), [spsymf . ) ,atm(end) ,atm(and  c),s 
psymf.)]) 

(4059)  17  Call:  appendf [ ( ] , [send  mesgf [ ,  2,,,  l,,,Ou 
t,],,op(<<),)],_6366)  ~       -•'-•>• 


(4060)  18  Call:  append! [], [send  mesg( [ ,  2,,,  l,,,Out 
,],,°P(«),)],_6850)  ~       -    -  "' 

(4060)  18  Exit:  append( [ ] , [send_mesg( [ ,_2, , ,_1, , ,Out 
,],,op(<<),)],[send_mesg([,_2,,,_l,,,out,],,op(<<),)]) 

(4059)  17  Exit:  append! [(], [send_mesg( [ ,_2, , ,_1, , ,Ou 
t,],,op(«),)],[(,send_mesg([,_2,,,_l,,,Out,],,op(<<),) 


(4061)  17  Call:  append! [( ,send  mesg( [ ,  2,,,  l,,,Out, 
],,op(«),)],[)],_6336)  ~       -    ~  "'uut' 


(4062)  18  Call:  append( [send  mesg( [ ,  2,,,  l,,,Out,l, 
,op(<<), )],[)],  6855)  "       ~    -  "'uut'J' 
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(4063)  19  Call:  append( [_2, , ,_1, ,, Out, ], ,op( <<),)], [ 
)],_6862) 


(4064)  20  Call:  append! [, ,_1, , ,Out, ], ,op( <<),)],[)] , 
6867) 


(4065)  21  Call:  append( [_1, ,, Out, ], ,op( «),)],[)] ,_6 
872) 


(4066)  22  Call:  append! [, ,Out, ], ,op( <<),)],[)]  ,_6877 
) 


(4067)  23  Call:  append! [Out, ], ,op( <<),)],[)] ,_6882) 

(4068)  24  Call:  append( [], ,op( <<),)],[)] ,_6887 ) 

(4069)  25  Call:  append( [op( <<),)],[)] ,_6892) 

(4070)  26  Call:  append) [)],[)] ,_6899) 

(4071)  27  Call:  append! [],[)] ,_6908 ) 
(4071)  27  Exit:  append( [],[)],[)] ) 
(4070)  26  Exit:  append! [)],[)],[),)] ) 

(4069)  25  Exit:  append! [op( <<),)],[)], [op( <<),),)] ) 


(4068)  24  Exit:  append! [], ,op( <<),)],[)],[],  ,op(  <<)  , 
),)]) 
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(4067)  23  Exit:  append! [Out, ], ,op( «),)],[)], [Out, ] , 
,op( «),),)]) 


(4066)  22  Exit:  append( [, ,Out, ], ,op( «),)],[)],[, ,Ou 
t,],,op(«),),)]) 


(4065)  21  Exit:  append( [_1, ,, Out, ], ,op( <<),)],[)], [ 
l,,,Out,],,op(<<),),)]) 


(4064)  20  Exit:  append) [, ,_1, ,, Out, ], ,op( «),)],[)] , 
[,,_!,,, Out,  ],,op(«),),)]) 


(4063)  19  Exit:  append! [_2, , ,_1, ,, Out, ], ,op( <<),)], [ 
I ] , [_2, , ,_1, , ,Out, ] , ,op(<<) , ) , ) ] ) 


(4062)  18  Exit:  append! [send_mesg( [ ,_2, , ,_1, ,, Out,  J , 
,op(<<),) ],[)],[send_mesg( [ ,_2, , ,_1, , ,Out, ] , ,op(<<) , ) , J 


(4061)  17  Exit:  append! [( ,send_mesg( [ ,_2, , ,_1, ,, Out, 
] , ,op( <<),)],[)], [ ( ,send_mesg( [ ,_2, , ,_1, , ,Out, ] , ,op(«) 

t    I    f   J  J  ) 

(3933)  16  Exit:  term( [ ( ,send_mesg( [ ,_2, , ,_1, , ,Out, ] , 
,op(  <<),),) ] ,  [spsym(  ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) , 
spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( 
) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , [spsym( . ) ,atm 
(end) ,atm(and_c) ,spsym( . ) ] ) 

(4072)  16  Call:  restexp( [ ( ,send_mesg( [ ,_2, , ,_1, , ,Out 
, ] , ,op(«) , ) , ) ] ,_6329, [spsym( . ) ,atm(end) ,atm(and  c) ,sps 
ym(.)],_6331) 
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(4073)  17  Call:  binop(_6915 , [spsym( . ) ,atm(end) ,atm(a 
nd_c) , spsyml . ) ],_6916) 


ml 


m( 


m( 


ml 


m(. 


m| 


ml. 


ml. 


ml 


4074)  18  Call:  c ( [ spsym (  . ) , atm ( end ) , atm ( and_c ) , spsy 
],spsym( :-) ,_6916) 

4074)  18  Fail:  c( [ spsyml .) ,atm(end) ,atm(and_c) ,spsy 
] , spsyml :-),_6916) 

4075)  18  Call:  c( [spsyml .) ,atm(end) ,atm(and_c) , spsy 
] , spsyml — >) ,_6916) 

4075)  18  Fail:  c( [spsyml .) ,atm(end) ,atm(and_c) , spsy 
] , spsyml — >) ,_6916) 

4076)  18  Call:  c( [spsyml .) ,atm(end) ,atm(and_c) ,spsy 
] ,spsym(->) ,_6916) 

4076)  18  Fail:  c ([ spsym (.), atm ( end ), atm ( and_c ), spsy 
] ,spsym(->) ,_6916) 

4077)  18  Call:  c( [spsyml .) ,atm(end) ,atm(and_c) ,spsy 
],spsym(=),_6916) 

4077)  18  Fail:  c( [spsyml .) ,atm(end) ,atm( and_c) , spsy 
], spsyml =),_6916) 

4078)  18  Call:  c(  [spsyml .) ,atm(end) ,atm(and_c) , spsy 
], spsyml =..),_6916) 

4078)  18  Fail:  c( [spsyml .) ,atm(end) ,atm(and_c) ,spsy 
] ,spsym(=. . ) ,_6916) 
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(4079)  18  Call:  c(  [spsym(  . )  ,atm(end)  ,atm(and_c)  ,spsy 
m( . )],spsym(==),_6916) 

(4079)  18  Fail:  c ( [ spsym ( . ) , atm ( end ) , atm ( and_c ) , spsy 
m( . ) ] ,spsym(==) ,_6916) 

(4080)  18  Call:  c( [ spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],spsym(\==),_6916) 

(4080)  18  Fail:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],spsym(\==),_6916) 

(4081)  18  Call:  c ([ spsym (.), atm ( end ), atm ( and_c ), spsy 
m( . ) ],spsym(@<) ,_6916) 


(4081)  18  Fail:  c(  [ spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m( . )],spsym(g<),_6916) 


(4082)  18  Call:  c(  [  spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m( . )],spsym(g>),_6916) 


(4082)  18  Fail:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m( . ) ],spsym(9>) ,_6916) 


(4083)  18  Call:  c( [spsym( . ) ,atm(end) ,atm( and_c) ,spsy 
m( . ) ] , spsym( 8=< ) ,_6916 ) 


(4083)  18  Fail:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m( . ) ],spsym(8=<) ,_6916) 


(4084)  18  Call:  c( [spsymf . ) ,atm(end) ,atm(and_c) ,spsy 
m(  . ) ] ,spsym( 8>=) ,_6916) 
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(4084)  18  Fail:  c( [spsym( . ) ,atre(end) ,atm(and_c) ,spsy 
m( . ) ] ,spsym(e>=) ,_6916) 


(4085)  18  Call:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],spsym(=:=),_6916) 


(4085)  18  Fail:  c ( [ spsym ( . ) , atm ( end ) , atm ( and_c ) , spsy 
m( . ) ] ,spsym(=:=) ,_6916) 


(4086)  18  Call:  c (  [ spsym ( . ) , atm ( end ) , atm ( and_c ) , spsy 
m(.)],spsym(=\=),_6916) 


(4086)  18  Fail:  c ([ spsym (.), atm ( end ), atm ( and_c ), spsy 
m(.)],spsym(=\=),_6916) 


(4087)  18  Call:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m( . ) ],spsym(<) ,_6916) 


(4087)  18  Fail:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],spsym(<),_6916) 


(4088)  18  Call:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],spsym(>) ,_6916) 


(4088)  18  Fail:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m( . )],spsym(>) ,_6916) 


(4089)  18  Call:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],spsym(=<),_6916) 


(4089)  18  Fail:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m( .)],spsym(=<),_6916) 
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(4090)  18  Call:  c(  [spsym(  .  )  ,atm(end)  ,atm( and_c)  ,spsy 
m( . ) ] ,spsym(>=) ,_6916) 

(4090)  18  Fail:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m( .  ) ],spsym(>=) ,_6916) 


(4091)  18  Call:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m( . )],spsym(+),_6916) 


(4091)  18  Fail:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],spsym(+),_6916) 


(4092)  18  Call:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m( . ) ],spsym(-) ,_6916) 


(4092)  18  Fail:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],spsym(-),_6916) 


(4093)  18  Call:  c ( [ spsym ( . ) , atm ( end ) , atm ( and_c ) , spsy 
m(.)],spsym(/\),_6916) 


(4093)  18  Fail:  c ([ spsym (.), atm ( end ), atm ( and_o ), spsy 
m(.)],spsym(/\),_6916) 


(4094)  18  Call:  c( [spsym( . ) ,atm(end) ,atm( and_c) ,spsy 
m(.)],spsym(\/),_6916) 


(4094)  18  Fail:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],spsym(\/),_6916) 


(4095)  18  Call:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],spsym(*),_6916) 
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(4095)  18  Fail:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],spsym(*),_6916) 


(4096)  18  Call:  c ( [ spsym ( . ) , atm ( end ) , atm ( and_c ) , spsy 
m(.)], spsyml /),_6916) 


(4096)  18  Fail:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],spsym(/),_6916) 


(4097)  18  Call:  c( [spsym( .) ,atm( end) ,atm(and_c) , spsy 
m(.)],spsym(//),_6916) 


(4097)  18  Fail:  c ([ spsym (.), atm ( end ), atm ( and_c ), spsy 
m(.)],spsym(//),_6916) 


(4098)  18  Call:  c ([ spsym (.), atm ( end ), atm ( and_c ), spsy 
m( . )  ] ,spsym(>>) ,_6916) 


(4098)  18  Fail:  c( [spsyml .) ,atm( end) ,atm(and_c) , spsy 
m( . ) ] ,spsym(>>) ,_6916) 


(4099)  18  Call:  c( [spsyml . ) ,atm(end) ,atm(and_c) ,spsy 
m( .)], spsyml ~),_6916) 


(4099)  18  Fail:  c( [spsyml .) ,atm(end) ,atm(and_c) , spsy 
m( .)], spsyml "),_6916) 


(4100)  18  Call:  c( [spsyml •) ,atm(end) ,atm(and_c) ,spsy 
m( . ) ] ,atm(mod) ,_6916) 


(4100)  18  Fail:  c( [spsyml .) ,atm(end) ,atm(and_c) , spsy 
m( . ) ],atm(mod) ,_6916) 
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(4101)  18  Call:  c( [spsyml . ) ,atm(end) ,atm(and_c) ,spsy 
m(.) J,atm(is),_6916) 


(4101)  18  Fail:  c( [spsyml .) ,atm(end) ,atm(and_c) ,spsy 
m(  . )],atm(is),_6916) 

(4073)  17  Fail:  binop(_6915, [spsyml .) ,atm(end) ,atm(a 
nd_c),spsym( .) ],_6916) 

(4102)  17  Call:  spvarasgn(=: , [spsyml .) ,atm( end) ,atm( 
and_c) , spsym ( . ) ] ,_6919) 

(4103)  18  Call:  c( [spsyml .) ,atm(end) ,atm(and_c) , spsy 
m(.)],spsym(=:),_6919) 


(4103)  18  Fail:  c( [spsyml .) ,atm(end) ,atm(and_c) , spsy 
m( . )] ,spsym(=: ) ,_6919) 

(4102)  17  Fail:  spvarasgn(=: , [spsyml .) ,atm(end) ,atm( 
and_c) , spsyml . ) ] ,_6919) 

(4104)  17  Call:  spvarasgn(=: :, [spsyml .) ,atm (end) ,atm 
(and_c) , spsyml . ) ] ,_6927) 


(4105)  18  Call:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m(.)],spsym(=::),_6927) 


(4105)  18  Fail:  c( [spsyml .) ,atm(end) ,atm(and_c) , spsy 
ml  . ) ],spsym(  =  : : ) ,_6927) 


(4104)  17  Fail:  spvarasgn(=: :, [spsyml .) ,atm(end) ,atm 
(and_c) ,spsym( . ) ],_6927) 
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(4106)  17  Call:  true 
(4106)  17  Exit:  true 


(4072)  16  Exit:  restexpt [ ( ,send_mesg( [ ,_2, , ,_1, , ,Out 
,],,op(<<), ),)],[( ,send_mesg( [ ,_2, , ,_1, , ,Out, ] , ,op(<<) , 
) , ) ] , [spsym( . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] , [spsym( . ) , 
atm(end) , atm(and_c) ,spsym( . ) ] ) 

(3915)  15  Exit:  exp( [ ( ,send_mesg( [ ,_2, , ,_1, , ,Out, ] , , 
op(<<) , ) , ) ] , [spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,s 
psym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) 
) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( .  )  ] , [spsymi . ) ,atm( 
end) ,atm(and_c) , spsym( . ) ] ) 


(4107)  15  Call:  writestr ( [ ( ,send_mesg( [ ,_2, , ,_1, , ,Ou 
t,],,op(<<),),)]) 


(    (4109)  16  Call:  writestr ( [send_mesg( [ ,_2, , ,_1, ,, Out 
,],,op( «),),)]) 


send_mesg([    (4111)  17  Call:  writestr ( [_2, , ,_1, ,, Out, ] 
,,op( <<),),)]) 


_2   (4113)  18  Call:  writestr( [, ,_1, , ,Out, ], ,op( <<),), ) 
]) 


,    (4115)  19  Call:  writestr ( [_1 ,, ,Out, ], ,op( <<),),)] ) 
_1   (4117)  20  Call:  writestr ([, ,Out, ], ,op( <<),),)] ) 
(4119)  21  Call:  writestr ( [Out, ], ,op( <<),),)] ) 
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Out    (4121)  22  Call:  writestr ([], ,op( <<),),)]  ) 
],    (4123)  23  Call:  writestr! [op! <<),),)] ) 
op(<<)    (4125)  24  Call:  writestr ([),)] ) 


)    (4127)  25  Call:  writestr 

)    (4129)  26  Call:  writestr 

(4129)  26  Exit:  writestr) 

(4127)  25  Exit:  writestr! 

(4125)  24  Exit:  writestr ( 

(4123)  23  Exit:  writestr! 

(4121)  22  Exit:  writestr! 

(4119)  21  Exit:  writestr! 

(4117)  20  Exit:  writestr ( 

(4115)  19  Exit:  writestr) 

(4113)  18  Exit:  writestr ( 

(4111)  17  Exit:  writestr( 
)]) 


([)]) 

([]) 

[]) 

[)]) 

[),)]) 

[op(<<),),)]) 

[],,op(«),),)]) 

[Out,],,op(«),),)]) 

[,,Out,],,op(«),)f  )]) 

[_l,,,Out,],,op(<<),),)]) 

[,,_1,,, Out,],, op( <<),),)]) 

[_2, , ,_1, , ,Out, ] , ,op( <<) , ) , 
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(4109)  16  Exit:  writestr ( [send_mesg( [ ,_2 , , ,_1, , ,Out, 
],,op(«),),)]) 


(4107)  15  Exit:  writestr ([(, send_mesg( [ ,_2, , ,_1, , ,Ou 
t,],,op(«),),)]) 


(3914)  14  Exit:  subgoaK [spsym( ( ) ,spsym( : ) ,vbl(Tc_in 
st)  ,spsym(<<)  ,  spsymi :  )  ,vbl(To_meth)  ,spsyni(  (  )  ,vbl(Out)  ,s 
psym( ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] 
, [spsymi . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ) 


(4130)  14  Call:  moresubgoalst [spsym( . ) ,atm(end) ,atm( 
and_c) ,spsym( . ) ] ,_6305) 


(4131)  15  Call:  c( [ spsym( .) ,atm (end) ,atm( and_c) ,spsy 
m(. )],spsym(,),_6935) 


(4131)  15  Fail:  c ( [ spsym (  . ) , atm ( end ) , atnt ( and_c ) , spsy 
m(.)],spsym( ,),_6935) 


(4132)  15  Call:  [ spsym (.), atm ( end ), atm ( and_c ), spsym ( 

(4132)  15  Exit:  [spsym( . ) ,atm(end) ,atm(and_c) ,spsym( 

(4133)  15  Call:  true 
(4133)  15  Exit:  true 


(4130)  14  Exit:  moresubgoals ( [spsymf . ) ,atm(end) ,atm( 
and_c) , spsymi . ) ] , [spsymf . ) ,atm(end) ,atm(and_c) , spsymi . ) 
]) 
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(3913)  13  Exit 
o_inst ) , spsym ( <  < 
t) 

(. 


subgoallist( [spsym( ( 
,spsym( : ) ,vbl(To_meth) 


spsym ( : ) ,vbl(T 


inst) ,spsym(<<) ,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Ou 
,spsym( ) ) , spsymi ) ) , spsymi . ) ,atm(end) ,atm(and_c) , spsym 
) ] , [spsymi . ) , atmiend) ,atm(and_c) ,spsym( . ) ] ) 


(3910)  12  Exit:  moresubgoals ( [spsymi ,) ,spsym( () ,spsy 
m( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) , vbl(To_meth) , spsym 
( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) , spsymi . ) ,atm(end) ,atm(an 
d_c) ,spsym( . ) ] , [spsymi . ) ,atm(end) ,atm(and_c) ,spsym( . ) ] ) 


(3698)  , 
(),vbl(X),spsym(/\ 
) , spsym( ' ' 
( To_meth 
atmlend, , 
d_c),  spsymi . ) ]) 


,atm(is) , spsymi 

, spsym ( , 

spsym ( : ) ,vbl 

.., ) ), spsymi  . ) , 

,atm(end) ,atm(an 


(4134)  11  Call:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m( . ) ] , spsymi . ) ,_5766) 


(4134)  11  Exit:  c( [spsym( . ) ,atm(end) ,atm(and_c) ,spsy 
m( . ) ] ,spsym( . ) , [atm(end) ,atm(and_c) , spsymi . ) ] ) 


)). 


(3697)  10  Exit:  body! [vbl(Out) ,atm( is) ,spsym( ( ) , vbll 
X) ,spsym(/\) , spsymi : ) ,vbl(Temp) , spsymi ) ), spsymi , ) , spsym 
( ( ) ,spsym( : ) , vbl(To_inst) , spsymi  <<) , spsymi : ) ,vbl(To_met 
h) , spsymi i ) ,vbl(Out) , spsymi ) ) , spsymi ) ) , spsymi . ) , atmlend 
) , atm(and_c) , spsymi . ) ] , [atmiend) ,atm(and_c) , spsymi . ) ] ) 


(4137)  10  Call:  consult ( .method) 
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(4137)  10  Exit:  consult) .method) 


(3694)  9  Exit:  meth_tail( [spsym( : -) , vbl(Out) ,atm( is) 
,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) , 

rT,--.mf  \        O^CTTTTl  t    t\        C T-» C \7TT1  I    •    \        T7h"WTo       T  Tl  S  t"  \     .  RDS  VTT1  t   <  <  )    .  SDSVIT 


sym. 

c) ,spsym( . ) ] 


(4138)  9  Call:  tell(user) 
(4138)  9  Exit:  tell(user) 


(3658)  8  Exit:  method_defn(and_c, [atm( in2) ,spsym( ( ) , 
vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl 
(X)  ,spsym(/\)  ,spsym(  : )  ,vbl(Temp)  ,spsym(  ) )  ,spsym(  , )  ,spsy 
m( ( ) ,spsym( :) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) ,vbl(To_me 
th) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(en 
d) ,atm(and_c) ,spsym( . ) ],[atm(end) ,atm(and_c) ,spsym( . ) ] ) 

(4139)  8  Call:  rest_mlist(and_c,  [atm(end)  ,atin( and_c) 
,spsym(.)],_515854) 


(4140)  9  Call:  c( [atra(end) ,atm(and_c) ,spsym( . ) ] ,atm( 
end),_6954) 

(4140)  9  Exit:  c( [atm(end) ,atm(and_c) ,spsym( . ) ] ,atm( 
end) , [atm(and_c) ,spsym( . ) ] ) 


(4139)  8  Exit:  rest_mlist(and_c, [atm(end) ,atm(and_c) 
,spsym( . ) ] , [atm(and_c) ,spsym( . ) ] ) 


(3657)  7  Exit:  methodlistt and_c, [atm( in2) ,spsym( ( ) ,v 
bl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl( 
X)  ,spsym(/\)  ,spsym(  : )  ,vbl(Temp)  ,spsym( ) )  ,spsym(  , )  ,spsym 
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( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( :) ,vbl(To_met 
h) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end 
) ,atm(and_c) ,spsym( . ) ] , [atm(and_c) ,spsym( . ) ] ) 

(3655)  6  Exit:  methods ( and_c, [atm( methods ) ,atm( in2) , 
spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,sps 
ym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsy 
m( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym( : ) , 
vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( 

(3640)  5  Exit:  properties ( and_c, [atm( super_class) , at 
m(circuit) ,spsym( ; ) ,atm(methods) ,atm(in2) ,spsym( ( ) ,vbl( 
X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,vbl(X) , 
spsym(A)  ,spsym(  : )  ,vbl(Temp)  ,spsym( ) )  ,spsym( , )  ,spsym(  (  ) 
,spsym( : ) ,vbl(To_inst) , spsym(<<) ,spsym( : ) ,vbl(To_meth) , 
spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,a 
tm(and_c) ,spsym( . ) ] , [atm(and_c) ,spsym( . ) ] ) 


(4141)  5  Call:  c( [atm(and_c) ,spsym( . ) ] ,atm(_5647) ,_5 
15855) 


(4141)  5  Exit:  c( [atm(and_c) ,spsym( . ) ] ,atm(and_c) , [s 
psym( . ) ] ) 


(4142)  5  Call:  match ( and_c , and_c ) 

(4142)  5  Exit:  match (and_c,and_c) 

(4143)  5  Call:  c( [spsym( . ) ] ,spsym( . ) ,_515810) 
(4143)  5  Exit:  c( [spsym( . ) ] ,spsym( . ) , [ ] ) 


(3633)  4  Exit:  class_def n( [atm(class) ,atm(and_c) ,atm 
(has) ,atm(super_class) ,atm( circuit) ,spsym( ; ) ,atm( method 
s) ,atm(in2) ,spsym( ( ) , vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) 
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,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,s 
psym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(< 
<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,sps 
ym( ) ) ,spsym( . ) ,atm(end) ,atm(and_c) ,spsym( .)],[]) 


(3630)  3  Exit:  oop_stmt( [atm(class) ,atm( and_c) ,atm(h 
as) ,atm(super_class) ,atm(circuit) ,spsym( ; ) ,atm( methods) 
,atm(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,a 
tm(is) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,sps 
ym( )) ,spsym( ,) ,spsym( ( ) ,spsym( : ) ,vbl(Tc_inst) ,spsym(<<) 
,spsym( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym 
( ) ) ,spsym( .) ,atm(end),atm(and_c) ,spsym( .)],[]) 


(4144)  3  Call:  oop([],_157) 

(4145)  4  Call:  oop_stmt( [ ] ,_518892) 
No  leashing. 

(4148)  5  Call:  class_defn( [ ] ,_518892) 

(4149)  6  Call:  c( [ ] ,atm(class) ,_518932) 

(4149)  6  Fail:  c( [ ] ,atm(class) ,_518932 ) 
(4148)  5  Back  to:  class_defn( [ ] ,_518892) 
(4148)  5  Fail:  class_defn( [ ] ,_518892 ) 
(4145)  4  Back  to:  oop_stmt( [ ] ,_518892) 

(4150)  5  Call:  inst_create([],_518892) 
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(4151)  6  Call:  c( [] ,atm( instance) ,_518913 ) 

(4151)  6  Fail:  c( [] ,atm( instance) ,_518913 ) 
(4150)  5  Back  to:  inst_create( [ ] ,_518892 ) 
(4150)  5  Fail:  inst_create( [ ] ,_518892) 

(4152)  5  Call:  top_lev_mes_trans( [ ] ,_518892 ) 

(4153)  6  Call:  c( [ ] ,atm(_6968) ,_518913 ) 
(4153)  6  Fail:  c( [ ] ,atm(_6968) ,_518913 ) 

(4152)  5  Back  to:  top_lev_mes_trans( [ ] ,_518892 ) 

(4152)  5  Fail:  top_lev_mes_trans( [ ] ,_518892) 

(4145)  4  Fail:  oop_stmt( [ ] ,_518892 ) 

(4144)  3  Back  to:  oop([],_157) 

(4144)  3  Exit:  oop( [ ] , [  ] ) 


(3629)  2  Exit:  oop( [atm(class) , atm ( and_c ) ,atm(has) ,a 
tm(super_class) ,atm(circuit) ,spsym( ; ) , atm ( methods ) ,atm( 
in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is 
) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) 
,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsy 
m( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( ) ) ,s 
psym( . ) ,atm(end) ,atm(and_c) ,spsym( .)],[]) 
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(8241)  7  Call:  inst_create( [atm( instance) ,atm(andl) , 
atm(isa) ,atm(and_c) ,spsym( . ) ] ,_520763) 


(8242)  8  Call:  c( [atm ( instance) , atm (andl) ,atm( isa) ,a 
tm(and_c) ,spsym( . ) ] ,atm( instance) ,_520795) 


(8242)  8  Exit:  c( [atm( instance) ,atm(andl) ,atra( isa) , a 
tm(and_c) ,spsym( . ) ] ,atm( instance) , [atm(andl) ,atm(isa) ,a 
tm(and_c) ,spsym( . ) ] ) 


(8243)  8  Call:  inst_name(_12482,_520796 , [atm(andl) ,a 
tm(isa) ,atm(and_c) ,spsym( . ) j ,_520797) 


(8244)  9  Call:  c( [atm (andl) ,atm( isa) , atm ( and_c) ,spsy 
m( . ) ] ,atm(_12482) ,_520797) 


(8244)  9  Exit:  c( [atm(andl) ,atm( isa) ,atm(and_c) , spsy 
m( .) ], atm ( andl ),[atm( isa) ,atm(and_c) ,spsym( . ) ]) 


(8245)  9  Call:  inst(andl,_12488) 

(8245)  9  Fail:  inst(andl,_12488) 

(8246)  9  Call:  _12487=0 

(8246)  9  Exit:  0=0 

(8243)  8  Exit:  ins t_name( andl, 0, [atm(andl) ,atm( isa) , 
atm(and_c) ,spsym( . ) ] , [atm (isa) ,atm(and_c) ,spsym( . ) ] ) 

(8247)  8  Call:  c( [atm(isa) , atm ( and_c ) ,spsym( . ) ] ,atm( 
isa),_520798) 


(8247)  8  Exit:  c( [atm( isa) ,atm(and_c) ,spsym( . ) ] ,atm( 
isa) , [atm(and_c) ,spsym( . ) ] ) 


(8248)  8  Call:  class(_12483 ,_520799, [atm(and_c) ,spsy 
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m(.)],_520800) 


(8249)  9  Call:  c( [atm(and_c) ,spsym( . ) ] ,atm(_12483  )  ,_ 
520800) 


(8249)  9  Exit:  c( [atm(and_c) ,spsym( . ) ] ,atm(and_c) , [s 
psym( . ) ] ) 


(8250)  9  Call:  not  classtree(_12499,and_c) 

(8251)  9  Call:  classtree(_12499,and_c) 

(8251)  9  Exit:  classtreef circuit, and_c) 
(8250)  9  Back  to:  not  classtree(_12499,and_c) 
(8250)  9  Fail:  not  classtree(_12499,and_c) 

(8252)  9  Call:  _12498=0 
(8252)  9  Exit:  0=0 


(8248)  8  Exit:  class (and_c,0, [ atm ( and_c ) ,spsym( . ) ] , [ 
spsym( . ) ] ) 


(8253)  8  Call:  c( t spsym( . ) ] ,spsym( . ) ,_520763 ) 

(8253)  8  Exit:  c( [spsym( . ) ] ,spsym( . ) , [ ] ) 

(8254)  8  Call:  0=0 

(8254)  8  Exit:  0=0 

(8255)  8  Call:  0=0 
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(8255)  8  Exit:  0=0 

(8256)  8  Call:  assert ( inst ( andl , and_c ) ) 

(8256)  8  Exit:  assert ( inst (andl, and_c) ) 

(8257)  8  Call:  get_c_vars(andl,and_c) 

(8258)  9  Call:  c_var_val(and_c,_12514,_12515) 
(8258)  9  Fail:  c_var_val(and_c,_12514,_12515 ) 
(8260)  9  Call:  and_c=root 

(8260)  9  Fail:  and_c=root 

(8261)  0  Call:  circuit=root 

(8261)  0  Fail:  circuit=root 

(8262)  0  Call:  root=root 

(8262)  0  Exit:  root=root 

(8257)  8  Exit:  get_c_vars ( andl , and_c ) 

(8263)  8  Call:  get_i_vars ( andl , and_c ) 

(8264)  9  Call:  i_var_decl(and_c,_12577 ) 
(8264)  9  Fail:  i_var_decl(and_c,_12577 ) 
(8266)  9  Call:  i_var_val( andl, _Id,_12 580 ) 
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(8266)  9  Fail:  i_var_val(andl,_Id,_12580) 

(8268)  9  Call:  i_var_val(andl,_Class,_12581) 

(8268)  9  Fail:  i_var_val(andl,_Class,_12581 ) 

(8270)  9  Call:  and_c=root 

(8270)  9  Fail:  and_c=root 

(8271)  0  Call:  i_var_val(andl,Temp,_12639 ) 

(8271)  0  Fail:  i_var_val( andl , Temp, _12639) 

(8272)  0  Call:  i_var_val(andl,Temp,_12676) 

(8272)  0  Exit:  i_var_val(andl,Temp,_12676) 

(8273)  0  Call:  i_var_val(andl,Tc_meth,_12676) 

(8273)  0  Fail:  i_var_val ( andl ,To_meth,_12676) 

(8274)  0  Call:  i_var_val(andl,Temp,_12713) 

(8274)  0  Exit:  i_var_val(andl,Temp,_12713 ) 

(8275)  0  Call:  i_var_val(andl,Tc_meth,_12713 ) 

(8275)  0  Exit:  i_var_val(andl,To_meth,_12713 ) 

(8276)  0  Call:  i_var_val(andl,To_inst,_12713 ) 
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(8276)  0  Fail:  i_var_val(andl,To_inst,_12713) 

(8277)  0  Call:  i_var_val(andl,Temp,_12750 ) 

(8277)  0  Exit:  i_var_val(andl,Temp,_12750) 

(8278)  0  Call:  i_var_val(andl,Tc_meth,_12750 ) 

(8278)  0  Exit:  i_var_val(andl,To_meth,_12750 ) 

(8279)  0  Call:  i_var_val(andl,Tc_inst,_12750 ) 

(8279)  0  Exit:  i_var_val(andl,To_inst,_12750) 

(8280)  0  Call:  i_var_val(andl,_Id,_12752) 

(8280)  0  Exit:  i_var_val ( andl, _Id, andl ) 

(8281)  0  Call:  i_var_val(andl,_Class,_12753 ) 

(8281)  0  Exit:  i_var_val( andl,_Class,and_c) 

(8282)  0  Call:  circuit=root 

(8282)  0  Fail:  circuit=root 

(8283)  0  Call:  i_var_val(andl,_Class,_12803 ) 

(8283)  0  Exit:  i_var_val(andl,_Class,and_c) 

(8284)  0  Call:  i_var_val(andl,_Id,_12803 ) 
(8284)  0  Exit:  i_var_val( andl, _Id, andl) 
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(8285)  0  Call:  i_var_val(andl,_Id,_12805) 

(8285)  0  Exit:  i_var_val ( andl ,_Id, andl) 

(8286)  0  Call:  i_var_val(andl,_Class,_12806 ) 

(8286)  0  Exit:  i_var_val(andl,_Class,and_c) 

(8287)  0  Call:  root=root 

(8287)  0  Exit:  root=root 

(8263)  8  Exit:  get_i_vars ( andl , and_c ) 

(8288)  8  Call:  get_meth_paths(andl,and_c) 

(8289)  9  Call:  meth_defn( and_c,_12846 ,_12847) 

(8289)  9  Exit:  meth_defn(and_c,in2, (in2(_12860,  1286 
l):-get_ivar(_12860,Temp,_12862),_12863  is  _12861/\  128 
62,get_ivar(_12860,To_inst,_12864)  ,get_ivar(_12860,To  m 
eth,_12865) ,send_mesg( [_12865,_12864,_12863] ,op(<<) ) ) ) 

(8290)  9  Call:  not  meth_jjath(andl,in2,and_c) 

(8291)  9  Call:  meth_path(andl,in2,and_c) 

(8291)  9  Fail:  meth_path(andl,in2,and_c) 
(8290)  9  Exit:  not  meth_path(andl,in2,and_c) 

(8292)  9  Call:  assert(meth_path(andl,in2,and_c) ) 
(8292)  9  Exit:  assert (meth_path( andl, in2, and_c ) ) 
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(8293)  9  Call:  get_meth_paths ( andl , and_c ) 

(8294)  10  Call:  meth_defn( and_c,_12888 ,_12889) 

(8294)  10  Exit:  meth_defn(and_c,in2, ( in2(_12902,_129 
03):-get_ivar(_12902,Temp,_12904),_12905  is  _12903/\_12 
904,get_ivar(_12902,To_inst,_12906) ,get_ivar (_12902 ,To_ 
meth,_12907) ,send_mesg( [_12907,_12906,_12905] ,op(<<)  )  ) ) 

(8295)  10  Call:  not  meth_path(andl,in2,and_c) 

(8296)  10  Call:  meth_path( andl , in2 , and_c ) 
(8296)  10  Exit:  meth_path(andl,in2,and_c) 
(8295)  10  Back  to:  not  meth_path(andl,in2,and_c) 
(8295)  10  Fail:  not  meth_path(andl,in2,and_c) 
(8294)  10  Back  to:  meth_defn(and_c,_12888,_12889) 
(8294)  10  Fail:  meth_defn(and_c,_12888,_12889 ) 
(8298)  10  Call:  and_c=root 

(8298)  10  Fail:  and_c=root 

(8299)  0  Call:  meth_path( andl, inl, circuit) 

(8299)  0  Fail:  raeth_path( andl, inl, circuit) 

(8300)  0  Call:  meth_path( andl, inl, circuit) 
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(8300)  0  Exit:  meth_path( andl, inl, circuit) 

(8301)  0  Call:  meth_path( andl, connect, circuit) 

(8301)  0  Fail:  meth_path( andl, connect, circuit) 

(8302)  0  Call:  meth_path( andl, inl, circuit) 

(8302)  0  Exit:  meth_path( andl, inl, circuit) 

(8303)  0  Call:  meth_path ( andl , connect, circuit) 

(8303)  0  Exit:  meth_path( andl, connect, circuit) 

(8304)  0  Call:  circuit=root 

(8304)  0  Fail:  circuit=root 

(8305)  0  Call:  meth_pa th( andl, who_am_I , root) 

(8305)  0  Fail:  meth_pa th( andl, who_am_I, root ) 

(8306)  0  Call:  meth_path( andl, who_am_I, root) 

(8306)  0  Exit:  meth_path ( andl , who_am_I , root ) 

(8307)  0  Call:  meth_path( andl, who_are_you, root) 

(8307)  0  Fail:  meth_path( andl, who_are_you, root) 

(8308)  0  Call:  meth_path ( andl ,who_am_I , root) 
(8308)  0  Exit:  me th_path( andl, who_am_I , root) 
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(8309)  0  Call:  meth_path( andl, who_are_you, root) 

(8309)  0  Exit:  meth_path( andl, who_are_you, root) 

(8310)  0  Call:  meth_path( andl, broadcast, root) 

(8310)  0  Fail:  meth_path(andl, broadcast, root) 

(8311)  0  Call:  meth_path( andl, who_am_I, root) 

(8311)  0  Exit:  meth_path( andl, who_am_I, root) 

(8312)  0  Call:  meth_path( andl, who_are_you, root) 

(8312)  0  Exit:  meth_path ( andl, who_are_you, root ) 

(8313)  0  Call:  meth_path( andl, broadcast, root) 

(8313)  0  Exit:  meth_path( andl , broadcast, root) 

(8314)  0  Call:  meth_pa th( andl, erase_se If , root) 

(8314)  0  Fail:   meth_j>ath ( andl, erase_self, root) 

(8315)  0  Call:  meth_path( andl, who_am_I, root) 

(8315)  0  Exit:  meth_path ( andl, who_am_I , root) 

(8316)  0  Call:  meth_path( andl, who_are_you, root) 

(8316)  0  Exit:  meth_path ( andl  ,who_are_you,  root) 

(8317)  0  Call:  meth_path( andl , broadcast, root) 
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(8317)  0  Exit:  meth_path( andl, broadcast, root) 

(8318)  0  Call:  meth_path ( andl, erase_self, root) 

(8318)  0  Exit:  meth_path ( andl ,erase_self, root) 

(8319)  0  Call:  root=root 

(8319)  0  Exit:  root=root 

(8293)  9  Exit:  get_meth__paths  ( andl ,  and_c ) 

(8288)  8  Exit:  get_meth_paths ( andl , and_c ) 

(8241)  7  Exit:  inst_create( [atm( instance) ,atm( andl ) , 
atm(isa) ,atm(and_c) ,spsym( .)],[]) 

(8236)  6  Exit:  oop_stmt( [atm( instance) ,atm(andl) ,atm 
(isa) ,atm(and_c) ,spsym( .)],[]) 

(8320)  6  Call:  oop([],_157) 

(8321)  7  Call:  oop_stmt( [ ] ,_522060) 

(8322)  8  Call:  class_defn( [ ] ,_522060) 

(8323)  9  Call:  c( [ ] ,atm(class) ,_522081) 
(8323)  9  Fail:  c( [ ] ,atra(class) ,_522081 ) 
(8322)  8  Back  to:  class_defn( [ ] ,_522060) 
(8322)  8  Fail:  class_defn( [ ] ,_522060 ) 
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No  leashing. 

(8326)  8  Call:  inst_create( [ ] ,_522060 ) 

(8327)  9  Call:  c( [ ] ,atm( instance) ,_522100) 

(8327)  9  Fail:  c( [] ,atm( instance) ,_522100) 
(8326)  8  Back  to:  inst_create( [ ] ,_522060) 
(8326)  8  Fail:  inst_create( [ ] ,_522060) 
(8321)  7  Back  to:  oop_stmt( [ ] ,_522060) 

(8328)  8  Call:  top_lev_mes_trans( [ ] ,_522060 ) 

(8329)  9  Call:  c( [ ] ,atm(_13181) ,_522081) 
(8329)  9  Fail:  c( [ ] ,atm(_13181) ,_522081) 
(8328)  8  Back  to:  top_lev_mes_tr ans ( [ ] , _5 2 2 0 6 0 ) 
(8328)  8  Fail:  top_lev_mes_trans ( [ ] ,_522060 ) 
(8321)  7  Fail:  oop_stmt( [ ] ,_522060) 

(8320)  6  Back  to:  oop([],_157) 
(8320)  6  Exit:  oop( [ ] , [ ] ) 


(8235)  5  Exit:  oop( [atm( instance) ,atm( andl) ,atm( isa) 
,atm(and_c) ,spsym( .)],[]) 
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(7472)  4  Exit:  oop( [atm(class) ,atm(out_c) ,atm(has) ,a 
tm(super_class) ,atm(circuit) ,spsym( ; ) ,atm( methods) ,atm( 
in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,atm(nl) ,spsym( , 
) ,atm(nl) ,spsym( , ) , atm( write ) ,spsym( ( ) ,spsym( : ) ,vbl(_Id 
) ,spsym( ) ) ,spsym( ,) ,atra(write) ,spsym( ( ) ,spsym( ' ) ,qatom( 
is  )  ,spsym(  '  )  ,spsym( )  )  ,spsym( ,)  ,atm(write)  ,spsym(  (  )  ,vb 
1(X) ,spsym( ) ) ,spsym( , ) ,atm(nl) ,spsym( ,) ,atm(nl) ,spsym( , 
) ,atm(nl) ,spsym( . ) ,atm(end) ,atm(out_c) ,spsym( . ) ,atm(ins 
tance) ,atm(andl) ,atm(isa) ,atm(and_c) ,spsym( .)],[]) 


(6983)  3  Exit:  oop( [atm(class) ,atm(or_c) ,atm(has) ,at 
m(super_class) ,atm( circuit) ,spsym( ; ) ,atm( methods) ,atm(i 
n2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is) 
,spsym( ( ),vbl(X),spsym(\/),spsym( : ) ,vbl(Temp) ,spsym( )), 
spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsym 
( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ) ,spsym( )),sp 
sym( . ) ,atm(end) ,atm(or_c) ,spsym( . ) ,atm(class) ,atm(out_c 
) ,atm(has) ,atm(super_class) ,atm(circuit) ,spsym( ; ) ,atm(m 
ethods) ,atm(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,atm 
(nl) ,spsym( ,) ,atm(nl) ,spsym( , ) ,atm(write) ,spsym( ( ) ,spsy 
m( : )  ,vbl(_Id)  ,spsym(  ) )  ,spsym(  , )  ,atm(write)  ,spsym(  ( )  ,sps 
ym('),qatom(  is  ) ,spsym( ' ) ,spsym( ) ) ,spsym( , ) ,atm(write) 
,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( , ) ,atm(nl) ,spsym( , ) ,atm 
(nl) ,spsym( , ) ,atm(nl) ,spsym( . ) ,atm(end) ,atm(out_c) ,spsy 
m( . ) ,atm( instance) ,atm(andl) ,atm(isa) ,atm(and_c) ,spsym( 


(6470)  2  Exit:  oop( [atm(class) ,atm(and_c) ,atm(has) ,a 
tm(super_class) ,atm(circuit) ,spsym( ; ) , atm ( methods ) ,atm( 
in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vbl(Out) ,atm(is 
) ,spsym( ( ) ,vbl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) 
,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,spsym(<<) ,spsy 
m( : ) ,vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( ) ),spsym( ) ) ,s 
psymi . ) ,atm(end) ,atm(and_c) ,spsym( . ) ,atm(class) ,atm(or_ 
c)  , atm(has)  ,atm( super_class)  ,atm( circuit)  ,spsym( ; )  ,atm( 
methods) ,atm(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( :-) ,vb 
l(Out) ,atm(is) ,spsym( ( ) ,vbl(X) ,spsym(\/j ,spsym( : ) ,vbl(T 
emp) ,spsym( ) ) ,spsym( , ) ,spsym( ( ) ,spsym( : ) ,vbl(To_inst) ,s 
psym(<<) ,spsym( : ) , vbl(To_meth) ,spsym( ( ) ,vbl(Out) ,spsym( 
) ) ,spsym( ) ) ,spsym( . ) ,atm(end) ,atm(or_c) ,spsym( . ) ,atm(cl 
ass) ,atm(out_c) ,atm(has) ,atm(super_class) ,atm( circuit) , 
spsym( ; ) ,atm(methods) ,atm(in2) ,spsym( ( ) ,vbl(X) ,spsym( ) ) 
,spsym( :-) ,atm(nl) ,spsym( , ) ,atm(nl) ,spsym( , ) , atm( write) 
,spsym(  (  )  ,spsym(  : )  ,vbl(_Id)  ,spsym(  ) )  ,spsym( , )  ,atm(write 
) ,spsym( ( ) ,spsym( ' ) ,qatom(  is  ) ,spsym( ' ) ,spsym( ) ) ,spsym 
( , ) ,atm(write) ,spsym( ( ) ,vbl(X) ,spsym( ) ) ,spsym( , ) ,atm(nl 
) ,spsym( , ) ,atm(nl) ,spsym( , ) ,atm(nl) ,spsym( . ) ,atm(end) ,a 
tm(out_c) ,spsym( . ) , atm (instance) , atm (andl) , atm (isa) ,atm 
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(and_c) , spsymf .)],[]) 


(5932)  1  Exit:  oop( [atm(class) ,atm(circuit) ,atm(has) 
,atm(super_class) ,atm(root) , spsymf ; ) ,atm(instance_var) , 
vbl(Temp) ,spsym( , ) ,vbl(To_meth) ,spsym( ,) ,vbl(To_inst) ,s 
psymf ; ) ,atm(methods) ,atm(inl) , spsymf ( ) ,vbl(X) ,spsym( ) ) , 
spsymf :-) ,vbl(Temp) ,spsym(=: ) ,vbl(X) , spsymf . ) ,atm(conne 
ct) ,spsym( ( ) ,vbl(Inst) ,spsym( , ) ,vbl(Meth) , spsymf ) ) ,spsy 
m( :-) ,vbl(To_inst) ,spsym(=: ) ,vbl(Inst) , spsymf , ) ,vbl(To_ 
meth) ,spsym(=:),vbl(Meth) ,spsym( . ) ,atm(end) ,atm(circuit 
) , spsymf . ) ,atm(class) ,atm(and_c) ,atm(has) ,atm(super_cla 
ss) ,atm(circuit) , spsymf ; ) ,atm( methods) ,atm(in2) ,spsym(  ( 
) ,vbl(X) , spsymf ) ) ,spsym( :-) ,vbl(Out) ,atm(is) ,spsym( ( ) ,v 
bl(X) ,spsym(/\) ,spsym( : ) ,vbl(Temp) ,spsym( ) ) ,spsym( , ) ,sp 
sym( ( ) , spsymf : ) ,vbl(To_inst) ,spsym(<<) , spsymf : ) ,vbl(To_ 
meth), spsymf ( ) ,vbl(Out) , spsymf )) ,spsym( )) , spsymf .),atm( 
end) ,atm(and_c) , spsymf . ) ,atm(class) ,atm(or_c) ,atm(has) , 
atmf superclass) ,atm(circuit) , spsymf ; ) ,atm(methods) ,atm 
(in2), spsymf ( ) ,vbl(X) , spsymf )) , spsymf :-) ,vbl(Out) ,atm(i 
s) , spsymf (),vbl(X),spsym(\/), spsymf :) ,vbl( Temp) , spsymf ) 
) , spsymf , ) , spsymf ( ) , spsymf : ) ,vbl(Tc_inst) ,spsym(<<) ,sps 
ymf : ),vbl(To_meth) , spsymf ( ) ,vbl(Out) , spsymf ) ) , spsymf ) ) , 
spsymf . ) ,atm(end) ,atm(or_c) , spsymf . ) ,atm(class) ,atm(out 
_c) ,atm(has) ,atm(super_class) ,atm( circuit) , spsymf ; ) ,atm 
(methods) ,atm(in2) , spsymf ( ) ,vbl(X) , spsymf ) ), spsymf :-) ,a 
tmfnl) , spsymf , ) ,atm(nl) , spsymf , ) ,atm(write) , spsymf ( ) ,sp 
symf : ) ,vbl(_Id) , spsymf ) ) , spsymf ,) ,atm(write) , spsymf ( ) ,s 
psymf ' ) ,gatom(  is  ) , spsymf  ■  ) ,spsym( ) ) , spsymf , ) ,atm(writ 
e), spsymf ( ) ,vbl(X) , spsymf )) , spsymf ,) ,atm(nl) , spsymf ,) ,a 
tmfnl) , spsymf , ) ,atm(nl) , spsymf . ) ,atm(end) ,atm(out_c) ,sp 
symf . ) ,atm( instance) ,atm(andl) ,atm(isa) ,atm(and  c) ,spsy 
m(. )],[])  " 
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(11294)  16  Call:  oop_stmt( [atm( and2) ,spsym( <<) ,atm( i 
n2) ,spsym( ( ),num(l) ,spsym( ) ) ,spsym( . ) ],_524655) 

(11295)  17  Call:  class_def n( [atm(and2) ,spsym( <<) ,atm 
(in2) ,spsym( ( ) ,num(l) ,spsym( ) ) ,spsym( . ) ] ,_524655) 


(11296)  18  Call:  c( [atm(and2) ,spsym( <<) ,atm( in2 ) ,sps 
ym( ( ) ,num(l) ,spsym( ) ) ,spsym( . ) ] ,atm(class) ,_524676) 


(11296)  18  Fail:  c( [atm(and2) ,spsym( <<) ,atm( in2) ,sps 
ym( ( ) ,num(l) ,spsym( ) ) ,spsym( . ) ] ,atm( class) ,_524676) 

(11295)  17  Back  to:  class_defn( [atm(and2) ,spsym(<<) , 
atm(in2)  ,spsym(  ( )  ,num(l)  ,spsym(  ) )  ,spsym(  . )  ]  ,_524655) 


(11295)  17  Fail:  class_defn( [atm(and2) ,spsym( <<) ,atm 
(in2) ,spsym( ( ) ,num(l) ,spsym( ) ) ,spsym( . ) ],_524655) 


(11297)  17  Call:  inst_create( [atm(and2) ,spsym( <<) ,at 
m(in2) ,spsym( ( ) ,num(l) ,spsym( ) ) ,spsym( . ) ] ,_524655) 


(11298)  18  Call:  c( [atm(and2) ,spsym( <<) ,atm( in2) ,sps 
ym( ( ) ,num(l) ,spsym( ) ) ,spsym( . ) ] ,atm( instance) ,_524676) 


(11298)  18  Fail:  c( [atm(and2 ) ,spsym( <<) ,atm( in2) ,sps 
ym( ( ) ,num(l) ,spsym( ) ) ,spsym( . ) ] ,atm( instance) ,_524676) 


(11297)  17  Back  to:  inst_create( [atm(and2) ,spsym( <<) 
,atm(in2) ,spsym( ( ) ,num(l) ,spsym( ) ) ,spsym( . ) ] ,_524655) 


(11297)  17  Fail:  inst_create( [atm(and2 ) ,spsym( <<) ,at 
m(in2) ,spsym( ( ) ,num(l) ,spsym( ) ) ,spsym( . ) ] ,_524655) 
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No  leashing. 


(11301)  17  Call:  top_lev_mes_trans( [atm(and2) , spsyml 
<<) ,atm(in2) , spsyml ( ) ,num(l) , spsyml ) ) ,spsym( . ) ] ,_524655 
) 


(11302)  18  Call:  c( [atm(and2 ) ,spsym( <<) ,atm( in2) ,sps 
ym( ( ),num(l), spsyml )) , spsyml . ) ] ,atm(_18637) ,_524695) 


(11302)  18  Exit:  c( [atra(and2) ,spsym( <<) ,atm( in2) ,sps 
ym( ( ) ,num(l) ,spsym( ) ) ,spsym( . ) ],atm(and2) , [spsym( <<) ,at 
m(in2) ,spsym( ( ) ,num(l) ,spsym( ) ) ,spsym( .)]) 


(11303)  18  Call:  mesgop(_18638, [spsym( << ) ,atm( in2) ,s 
psym( ( ) ,num(l) , spsyml ) ) ,spsym( . ) ] ,_524696) 


(11304)  19  Call:  c(  [spsymKO  ,atm(  in2)  , spsyml  ()  ,num( 
1 ) , spsym( ) ) , spsym( . ) ] , spsyml << ) ,_524696 ) 


(11304)  19  Exit:  c(  [spsymKO  ,atm( in2) , spsyml  ()  ,num( 
1)  ,spsym( ) ) , spsyml  . )  ]  ,spsym(<<)  ,  [atm(in2)  ,spsym(  (  )  ,num( 
1 ) , spsyml ) ) , spsyml . ) ] ) 


(11303)  18  Exit:  mesgopl <<, [spsyml <<) ,atm( in2 ) ,spsym 
(( ) ,num(l) , spsyml ) ) , spsyml . ) ] , [atm(in2) , spsyml ( ) ,num(l) 
, spsyml ) ) , spsyml .) ]) 


(11305)  18  Call:  mesg(_18639,_524697, [atm(in2 ) ,spsym 
(( ),num(l), spsyml )),spsym(. ) ],_524698) 


(11306)  19  Call:  c( [atm( in2) , spsyml () ,num( 1) , spsyml ) 
), spsyml . ) ] ,atm(_18639) ,_524736) 


(11306)  19  Exit:  c( [atm( in2 ) , spsyml () ,num( 1) , spsyml ) 
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) , spsyml . ) ] ,atm(in2) , [spsym( ( ) ,num(l) ,spsym( ) ) ,spsym( . ) 
]) 


(11307)  19  Call:  args(_524697 , [spsym( ( ) ,num( 1) ,spsym 
()),spsym(.)],_524698) 


(11308)  20  Call:  c(  [spsym(  ( )  ,num(  1)  ,spsym(  ) )  ,spsym( . 
)],spsym((),_524756) 

(11308)  20  Exit:  c( [spsyml () ,num( 1 ) ,spsym( )) ,spsym( . 
)] , spsyml ( ) , [num(l) , spsyml ) ) ,spsym( . ) ] ) 


(11309)  20  Call:  term(_524757 , [num( 1) , spsyml )) ,spsym 
(.)],  524758) 


(11310)  21  Call:  pred(_18654,  [num(  1)  ,spsym(  )  ) , spsyml 

(11311)  22  Call:  c( [num( 1 ) ,spsym( ) ) , spsyml . ) ] ,atm(_l 
8668),_524796) 


(11311)  22  Fail:  c( [num( 1) , spsyml ) ) , spsyml . ) ] ,atm(_l 
8668),_524796) 


(11310)  21  Back  to:  pred(_18654, [num( 1) ,spsym( ) ) ,sps 
ym(.)],_18656) 

(11310)  21  Fail:  pred(_18654, [num( 1) ,spsym( ) ) , spsyml 


(11312)  21  Call:  const(_18654 , [num( 1) ,spsym( ) ) ,spsym 
(.)],_18656) 


(11313)  22  Call:  c( [num( 1) , spsyml ) ) , spsyml . ) ] ,num(_l 
8671),_18656) 
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(11313)  22  Exit:  c( [num( 1) ,spsym( ) ) ,spsym( . ) ] ,num( 1) 
,[spsym(  ) )  ,spsyin(  .  )  ] ) 


(11312)  21  Exit:  const( t 1] , [num( 1) ,spsym( ) ) , spsym( . ) 
],[spsym( ) ) ,spsym( . ) ] ) 


(11309)  20  Exit:  term( [1] , [num( 1) ,spsym( ) ) ,spsym( . ) ] 
, [spsym( ) ) ,spsym( .)]) 


(11314)  20  Call:  rest_args(_524759, [ spsym( ) ) ,spsym( 
i ],  524760) 


(11315)  21  Call:  c( [spsym( ) ) ,spsym( . ) ] ,spsym( , ) ,_524 
831) 


(11315)  21  Fail:  c( [spsym( ) ) ,spsym( . ) ] ,spsym( , ) ,_524 
831) 


(11314)  20  Back  to:  rest_args(_524759 , [spsym( ) ) ,spsy 
m(.)],_524760) 


(11316)  21  Call:  true 
(11316)  21  Exit:  true 


(11314)  20  Exit:  rest_args( [ ] , [spsym( ) ) ,spsym( . ) ] , [s 
psym( ) ) ,spsym( .)]) 


(11317)  20  Call:  c( [spsym( ) ) ,spsym( . ) ] ,spsym( ) ) ,_524 
698) 
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(11317)  20  Exit:  c( [spsyml ) ) ,spsym( . ) ] ,spsym( ) ) , [sps 
ym(.)]) 


(11318)  20  Call:  append( [1 ] , [ ] ,_524697  ) 

(11319)  21  Call:  append! [],[] ,_18688) 
(11319)  21  Exit:  append) [],[],[] ) 
(11318)  20  Exit:  append! [ 1] ,[], [1] ) 


(11307)  19  Exit:  args( [1 ] , [spsyml ( ) ,num( 1) ,spsym( ) ) , 
spsym( . ) ] , [spsyml . ) ]) 


(11305)  18  Exit:  mesg( in2, [ 1] , [atm( in2) ,spsym( ( ) ,num 
( 1 ) , spsym( ) ) , spsyml . ) ] , [ spsymi . ) ] ) 


(11320)  18  Call:  c( [ spsym( . ) ] , spsyml . ) ,_524655 ) 

(11320)  18  Exit:  c( [spsyml .)] , spsyml .),[] ) 

(11321)  18  Call:  strip_args( [1] ,_18640 ) 

(11321)  18  Exit:  strip_args( [ 1] , [1] ) 

(11322)  18  Call:  send_mesg( [in2,and2,l] ,op( <<) ) 

(11323)  19  Call:  meth_path(and2,in2,_524885) 
(11323)  19  Exit:  meth_path(and2 ,in2,and_c) 
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(11324)  19  Call:  meth_def n(and_c,in2,_524886 ) 

(11324)  19  Exit:  meth_def n(and_c,in2, ( in2(_18705,  18 
706) :-get_ivar(_18705, Temp, _18707),_18708  is  _18706/\_1 
8707,get_ivar(_18705,To_inst,_18709)  ,get_ivar (_18705,To 
_meth,_18710),send_mesg([_18710,_18709,_18708],op(<<))) 
) 


(11325)  19  Call:  assertaf ( in2(_18705,_18706) : -get_iv 
ar(_18705,Temp,_18707),_18708  is  _18706/\_18707,get_iva 
r(_18705,To_inst,_18709) ,get_ivar(_18705 ,To_meth,_18710 
) ,send_mesg( [_18710,_18709,_18708] ,op(<<) ) ) ) 


(11325)  19  Exit:  assertal ( in2(_18705,_18706) : -get_iv 
ar(_18705,Temp,_18707),_18708  is  _18706/\_18707 ,get_iva 
r(_18705,To_inst,_18709),get_ivar(_18705,To_meth,_18710 
) ,send_mesg( [_18710,_18709,_18708] ,op(<<) ) ) ) 


(11326)  19  Call:  (in2(_18705,_18706) : -get_ivar (_1870 
5,Temp,_18707),_18708  is  _18706/\_18707 ,get_ivar (_18705 
,To_inst,_18709) ,get_ivar (_18705 ,To_meth,_18710) ,send_m 
esg(  [_18710,_18709,_18708] ,op(<<) ) )  =  . . [_18702,_18703  ,_1 
8704] 

(11326)  19  Exit:  (in2(_18705,_18706) : -get_ivar (_1870 
5,Temp,_18707),_18708  is  _18706/\_18707 ,get_ivar (_18705 
,To_inst,_18709) ,get_ivar (_18705 ,To_meth,_18710) ,send_m 
esg([_18710,_18709,_18708],op( <<)))=..[ :-,in2  (_18705,  1 
8706), (get_ivar(_18705, Temp, _18707) ,_18708  is  _18706A_ 
18707, get_ivar(_18705,To_inst,_18709) ,get_ivar (_18705,T 
o_meth,_18710),send_mesg( [_18710,_18709,_18708] ,op( <<) ) 
)] 


(11327)  19  Call:  in2(_18705,_18706)=. . [ in2,and2,l] 
(11327)  19  Exit:  in2(and2, 1)=. . [in2,and2,l] 
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(11328)  19  Call:  in2(and2,l) 

(11329)  20  Call:  get_ivar ( and2,Temp,_18730) 

(11330)  21  Call:  i_var_val(and2,Temp,_18730) 

(11330)  21  Exit:  i_var_val(and2,Temp,l) 

(11331)  21  Call:  nonvar(l) 

(11331)  21  Exit:  nonvar(l) 

(11329)  20  Exit:  get_ivar (and2,Temp,l) 

(11332)  20  Call:  _18731  is  1/\1 

(11332)  20  Exit:  1  is  1/\1 

(11333)  20  Call:  get_ivar (and2,To_inst,_18732 ) 

(11334)  21  Call:  i_var_val(and2 ,To_inst,_18732) 

(11334)  21  Exit:  i_var_val( and2,To_inst,orl) 

(11335)  21  Call:  nonvar(orl) 
(11335)  21  Exit:  nonvar(orl) 


253 


APPENDIX  K   TRACE  OF  MESSAGE  SENDING  PARSE: 
"and2  <<  in2(l) ." 


(11333)  20  Exit:  get_ivar ( and2,To_inst,orl) 

(11336)  20  Call:  get_ivar (and2,To_meth,_18733 ) 

(11337)  21  Call:  i_var_val(and2,To_meth,_18733 ) 

(11337)  21  Exit:  i_var_val(and2,To_meth,in2) 

(11338)  21  Call:  nonvar(in2) 

(11338)  21  Exit:  nonvar(in2) 

(11336)  20  Exit:  get_ivar (and2,To_meth,in2) 

(11339)  20  Call:  send_mesg( [ in2,orl,l] ,op(«) ) 

(11340)  21  Call:  meth_path(orl ,in2,_524993 ) 

(11340)  21  Exit:  meth_path(orl,in2,or_o) 

(11341)  21  Call:  meth_defn(or_c,in2,_524994) 


(11341)  21  Exit:  meth_defn(or_c,in2, ( in2(_18745,_187 
46):-get_ivar(_18745,Temp,_18747),_18748  is  _18746\7_18 
747,get_ivar(_18745,To_inst,_18749) ,get_ivar(_18745,To_ 
meth,_18750) ,send_mesg( [_18750 ,_18749 ,_18748] ,op( <<) ) ) ) 


(11342)  21  Call:  asserta( ( in2 (_18745 ,_18746 ) : -get_iv 
ar(_18745,Temp,_18747),_18748  is  _18746\/_18747 ,get_iva 
r(_18745,To_inst,_18749) ,get_ivar (_18745 ,To_meth,_18750 
) ,send_mesg( [_18750 ,_18749,_18748] ,op( <<) ) ) ) 
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(11342)  21  Exit:  asserta( ( in2(_18745,_18746 ) : -get_iv 
ar(_18745,Temp,_18747),_18748  is  _18746\/_18747,get_iva 
r(_18745,To_inst,_18749),get_ivar(_18745,To_meth,_18750 
) ,send_mesg( [_18750,_18749,_18748] ,op(<<) ) ) ) 

(11343)  21  Call:  ( in2(_18745 ,_18746 ) : -get_ivar (_1874 
5,Temp,_18747),_18748  is  _18746\/_18747,get_ivar (_18745 
,To_inst,_18749) ,get_ivar (_18745 ,To_meth,_18750) ,send_m 
esg( [_18750,_18749,_18748] ,op(«) ) )=. . [_18740,_18741,_1 
8742] 


(11343)  21  Exit:  (  in2(_18745,_18746) : -get_ivar (_1874 
5,Terap,_18747) ,_18748  is  _18746\/_18747,get_ivar (_18745 
,To_inst,_18749) ,get_ivar (_18745,To_meth,_18750) ,send_m 
esg( [_18750,_18749,_18748] ,op(<<) ) )=. . t : -,in2(_18745,_l 
8746),(get_ivar(_18745,Temp,_18747),_18748  is  _18746\/_ 
18747,  get_ivar(_18745,To_inst,_18749),get_ivar(_18745,T 
o_meth,_18750) ,send_mesg( [_18750,_18749,_18748] ,op( <<) ) 
)] 


(11344)  21  Call:  in2(_18745,_18746 )=. . [ in2,orl,l] 

(11344)  21  Exit:  in2(orl,l)=. . [in2,orl,l] 

(11345)  21  Call:  in2(orl,l) 

(11346)  22  Call:  get_ivar (orl,Terap,_18770) 

(11347)  23  Call:  i_var_val(orl/Temp,_18770) 

(11347)  23  Exit:  i_var_val(orl,Temp,0) 

(11348)  23  Call:  nonvar(O) 
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(11348)  23  Exit:  nonvar(O) 

(11346)  22  Exit:  get_ivar (orl,Temp,0) 

(11349)  22  Call:  _18771  is  l\/0 

(11349)  22  Exit:  1  is  l\/0 

(11350)  22  Call:  get_ivar (orl,To_inst,_18772) 

(11351)  23  Call:  i_var_val(orl,To_inst,_18772) 

(11351)  23  Exit:  i_var_val(orl,To_inst,outl) 

(11352)  23  Call:  nonvar(outl) 

(11352)  23  Exit:  nonvar(outl) 

(11350)  22  Exit:  get_ivar (orl,To_inst,outl) 

(11353)  22  Call:  get_ivar(orl,To_meth,_18773) 

(11354)  23  Call:  i_var_val(orl,To_meth,_18773 ) 

(11354)  23  Exit:  i_var_val(orl,To_meth,in2) 

(11355)  23  Call:  nonvar(in2) 
(11355)  23  Exit:  nonvar(in2) 
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(11353)  22  Exit:  get_ivar (orl,To_meth,in2) 

(11356)  22  Call:  send_raesg( [in2,outl,l] ,op( <<) ) 

(11357)  23  Call:  meth_path(outl ,in2,_5 25101) 

(11357)  23  Exit:  meth_path(outl,in2,out_c) 

(11358)  23  Call:  meth_defn(out_c,in2,_525102) 

(11358)  23  Exit:  meth_def n(out_c,in2, ( in2(_18785,_18 
786):-nl,nl,get_ivar(_18785,_Id,_18787),write(_18787),w 
rite(  is  )  ,write(_18786) ,nl,nl,nl)  ) 


(11359)  23  Call:  assertat ( in2(_18785,_18786) : -nl,nl, 
get_ivar(_18785,_Id,_18787) ,write(_18787) ,write(  is  ) ,w 
rite(  18786), nl,nl,nl)) 


(11359)  23  Exit:  asserta( ( in2(_18785,_18786 ) :-nl,nl, 
get_ivar(_18785,_Id,_18787) ,write(_18787) ,write(  is  ) ,w 
rite(_18786),nl,nl,nl)) 


(11360)  23  Call:  (in2(_18785,_18786) : -nl,nl,get_ivar 
(_18785,_Id,_18787),write(_18787),write(  is  ) ,write(_18 
786) ,nl,nl,nl)=. . [_18780,_18781,_18782] 


(11360)  23  Exit:  (in2(_18785,_18786) : -nl,nl,get_ivar 
(_18785,_Id,_18787),write(_18787), write)  is  ),write(_18 
786) ,nl,nl,nl)=. . [ :-,in2(_18785 ,_18786 ) , (nl,nl,get_ivar 
(_18785,_Id,_18787) ,write(_18787) ,write(  is  ),write(_18 
786),nl,nl,nl)] 
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(11361)  23  Call:  in2(_18785,_18786)=. . [in2,outl,l] 

(11361)  23  Exit:  in2(outl, 1)=. . [in2,outl, 1] 

(11362)  23  Call:  in2(outl,l) 


(11365)  24  Call:  get_ivar (outl,_Id,_525161) 

(11366)  25  Call:  i_var_val(outl,_Id,_525161) 

(11366)  25  Exit:  i_var_val(outl,_Id,outl) 

(11367)  25  Call:  nonvar(outl) 
(11367)  25  Exit:  nonvar(outl) 

(11365)  24  Exit:  get_ivar (outl,_Id,outl) 
outl  is  1 


(11362)  23  Exit:  in2(outl,l) 
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(11374)  23  Call:  retract) ( in2(outl ,1) : -nl,nl,get_iva 
r(outl,_Id,_18787) ,write(_18787) ,write(  is  ),write(l),n 
l,nl,nl)) 


(11374)  23  Exit:  retract( ( in2 (outl, 1) : -nl,nl,get_iva 
r(outl,_Id,_18787) ,write(_18787) ,write(  is  ),write(l),n 
l,nl,nl)) 


(11356)  22  Exit:  send_raesg( [ in2,outl,l] ,op( << ) ) 
(11345)  21  Exit:  in2(orl,l) 


(11375)  21  Call:  retract! ( in2 (or 1, 1 ): -get_ivar(orl,T 
emp,_18747) ,_18748  is  1\/_18747 ,get_ivar (orl,To_inst,_l 
8749) ,get_ivar(orl,To_meth,_18750) ,send_mesg( [_18750,_1 
8749,_18748],cp(<<)))) 


(11375)  21  Exit:  retract! ( in2(orl, 1) : -get_ivar(orl,T 
emp,_18747) ,_18748  is  1\/_18747 ,get_ivar (orl,To_inst,_l 
8749) ,get_ivar(orl,To_meth,_18750) ,send_mesg( [_18750,_1 
8749,_18748],op(<<) ))) 


(11339)  20  Exit:  send_mesg( [in2,orl,l] ,op( <<) 
(11328)  19  Exit:  in2(and2,l) 


(11376)  19  Call:  retract( ( in2(and2, 1) :-get_ivar ( and2 
,Temp,_18707) ,_18708  is  1/\_18707 ,get_ivar (and2,To_inst 
,_18709) ,get_ivar(and2,To_meth,_18710) ,send_mesg( [_1871 
0,_18709,_18708],op(<<))) ) 


(11376)  19  Exit:  retract ( ( in2 (and2, 1) : -get_ivar (and2 
,Temp,_18707) ,_18708  is  l/\_18707,get_ivar (and2,To_inst 
,_18709) ,get_ivar(and2,To_raeth,_18710) ,send_mesg( [_1871 
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0,_18709,_18708],op( <<)))) 

(11322)  18  Exit:  send_mesg( [in2 ,and2 , 1] ,op(<< ) ] 


(11301)  17  Exit:  top_lev_mes_trans( [atm(and2) ,spsym( 
<<) ,atm(in2) ,spsym( ( ) ,num( 1) ,spsym( ) ) ,spsym( .)],[]) 


(11294)  16  Exit:  oop_stmt( [atm( and2) ,spsym( << ) ,atm( i 
n2) ,spsym( ( ) ,num(l) ,spsym( ) ) ,spsym( .)],[]) 
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ABSTRACT 
This  thesis  defines  a  prototype  of  object-oriented 
Prolog  called  OOP.  The  design  is  based  largely  on  the 
early  language  SPOOL  by  IBM  Japan.  OOP  incorporates 
simple  inheritance,  class  and  instance  variables,  and 
method  definition  using  Prolog  clauses.  OOP  is 
implemented  using  Definite  Clause  Grammars  to  translate 
the  OOP  source  to  a  target  C-Prolog  program.  The 
translation  to  C-Prolog  and  execution  of  the  resulting 
program  is  illustrated  using  a  small  logic  circuit 
simulation  example. 


